Recherche de texte

[Sylvain]

Bonjour le forum.
Comment faire une recherche de texte dans une cellule avec du code vba.
EX:La cellule A1 contient le texte "couleur rouge".
Comment trouver le mot rouge dans la cellule?
Cordialement

 

[myDearFriend]

Bonsoir Sylvain,


msgbox InStr("Couleur rouge","rouge")

te donnera 7 car "rouge" commence au 7ème caractère.

ou bien,

If "Couleur rouge" Like "*rouge*" then msgBox "Le mot est bien contenu dans l'expression !"

Cordialement.
Didier

 

[myDearFriend]

Oups, je m'aperçois que je ne répondais pas exactement à ta question....

>EX:La cellule A1 contient le texte "couleur rouge".
>Comment trouver le mot rouge dans la cellule?

Voici donc :

msgbox InStr(sheets(1).range("A1").value,"rouge")

te donnera 7 car "rouge" commence au 7ème caractère.

ou

If Sheets(1).Range("A1").Value Like "*rouge*" Then MsgBox "Le mot ""rouge"" est bien contenu dans A1 !"

ou bien encore,

If Application.WorksheetFunction.CountIf(Sheets(1).Range("A1"), "*rouge*") Then MsgBox "Le mot ""rouge"" est bien contenu dans A1 !"

Cordialement.
Didier