VBA Tester si un mot existe dans une feuille

perdinch

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

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

Discussions similaires

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal