Comment vérifier si la texte à rechercher existe?

gorpg a utilisé son clavier pour écrire :

Bonjours,
Encore un souci concernant la façon de vérifier si la texte à
rechercher existe vraiment? Y a il un code qui donne la réponse:)

Merci par avance


YAN

Bonjour,

à essayer

Sub find()
Dim inputText As String
inputText = InputBox("Saisir la valeur à rechercher", "RECHERCHER")

Cells.find(What:=inputText, After:¬tiveCell, LookIn:=xlFormulas,
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:úlse, SearchFormat:úlse).Activate
End Sub

Bye