vba condition si texte trouvé dans une feuille

[philppe27]

Bonjour,

J'ai besoin de savoir si un texte se trouve dans une feuille et j'utilise le code suivant:
If Not IsError(Cells.Find(What:="Code Postal / Ville", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False)) Then

mais apparemment que le texte soit dans la feuille ou non la condition est réalisée.
Quelqu'un peut-il me donner le bon code ?

Merci d'avance pour votre aide

 

[kjin]

Re : vba condition si texte trouvé dans une feuille

Bonjour,

Set x = Cells.Find(What:="Code Postal / Ville", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False)
If Not x Is Nothing Then
'....
End If

A+
kjin

 

[philppe27]

Re : vba condition si texte trouvé dans une feuille

Merci ça fonctionne très bien.