VBA Tester si un mot existe dans une feuille

[perdinch]

Bonjour,

Comment faire en VBA une recherche d'un terme dans une feuille d'un classeur dans la plage a1:Z1 .

exemple : rechercher le terme "tata"

Si "tata" existe faire ceci
Si "tata" n'existe pas faire cela

j'ai essayé avec find ...en vain.


MERCI de vos suggestions

 

[tototiti2008]

Re : VBA Tester si un mot existe dans une feuille

Bonjour perdinch,

Peut-être

If Application.Countif(Range("A1:Z1"),"tata")>0 then

si "tata" seul dans la cellule

ou

If Application.Countif(Range("A1:Z1"),"*tata*")>0 then

si "tata" contenu dans la cellule

 

[Pierrot93]

Re : VBA Tester si un mot existe dans une feuille

Bonjour Perdinch, toto

Perso, la méthode "find" étant native dans vba je l'utiliserais :

Dim x As Range
Set x = Range("A1:Z1").Find("tata", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox "trouvé en " & x.Address Else MsgBox "n'existe pas..."

si le mot recherché représente la totalité de la cellule, pour une partie modifier "xlWhole" par "xlpart".

bon après midi
@+