Vérifier si un mot est présent dans une chaîne de caractère

[nougitch]

Bonjour,

Dans un code VBA, j'aurais besoin de vérifier si un mot est présent dans une chaîne de caractères.

Exemple :
Mot à chercher --> Excel
Chaîne de caractère --> Bienvenu sur le forum Excel download
Résultat = True

Merci par avance pour votre aide.
Cdt,

 

[pierrejean]

Re : Vérifier si un mot est présent dans une chaîne de caractère

bonjour nougitch

resultat = InStr("Bienvenu sur le forum Excel download", "Excel") <> 0

 

[Raja]

Re : Vérifier si un mot est présent dans une chaîne de caractère

Bonjour,

Essaye le code suivant, A1 contenant la chaîne de texte :

Sub test()
  Dim Resultat As Boolean
  Resultat = WorksheetFunction.CountIf([A1], "*Excel*")
  MsgBox Resultat
End Sub

édit : Salut pierrejean

 

[nougitch]

Re : Vérifier si un mot est présent dans une chaîne de caractère

Merci beaucoup messieurs !
Très bon après-midi !