Bonjour
heureusement que j'ai précisé de mettre lookin ET lookat
Si tu ne mets pas lookin et qu'un utilisateur à fait une recherche dans les formules tu risques d'être marron.
Et si .find ne trouve pas il est = Nothing. Tu auras une erreur dans li=... ).row
Donc à moins d'être sûr à 100% qu'il trouvera il faut tester sa valeur.
Donc ce n'est pas tout à fait ainsi qu'on l'utilise, et tu n'es pas obligé d'activer la feuille :
Dim li As Long, der As Long, chaine$, chaine2$
Dim c As Range
chaine = Cells(1, 1).Value
Set c = Sheets("feuil2").Columns(1).Find(chaine, lookat:=xlWhole, LookIn:=xlValues)
If c Is Nothing Then
li = 2 ' non trouvé
Else
li = c.Row
End If
MsgBox chaine2 ' ??
eric