Salut
Extrait de l'exemple donné avec la fonction Find dans l'aide de VBA :
With Worksheets(1).Range("V:V")
Set c = .Find("Letextequejerecherche", LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox "Trouvé en " & c.Address
Else
MsgBox "Pas trouvé"
End If
End With
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Merci pour ta réponse, pourrais-tu cependant me dire l'inverse de
If Not c Is Nothing Then
Peut-être : If c Is Then
Moncode
Else (passer au code suivant sans rien faire si il ne le trouve pas!)
End If
End With