VBA Tester si un mot existe dans une feuille

perdinch · 12 Octobre 2010

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 · 12 Octobre 2010

Re : VBA Tester si un mot existe dans une feuille

Bonjour perdinch,

Peut-être

Code:

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

si "tata" seul dans la cellule

ou

Code:

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

si "tata" contenu dans la cellule

Pierrot93 · 12 Octobre 2010

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 :

Code:

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
@+

VBA Tester si un mot existe dans une feuille

perdinch

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires