Ajouter cette syntaxe de la méthode Find pour votre procédure:
Range_Object.Find (Qu'est-ce que, après, Lookln, LookAt, SearchOrder, SearchDirection, matchcase, MatchByte, SearchFormat). Un exemple est
Sous rapide ()
«Entrez» Ici, il est! " dans une cellule sur la feuille 1.
Si Non Sheetl.Cells.Find (Qu'est-ce: «Ici, il est" =, Après: = Celis (1, 1), Lookln: = xlValues, LookAt: = xlPart,
SearchOrder: xlByRows, Recherche Direction: = X à côté, matchcase:! = True, SearchFormat: = true) _
Rien Then MsgBox "Il est là!"
End Sub
Cette procédure ne renvoie rien si aucune correspondance est trouvée.