Discussion :

[Daranc]

bonjour
je suis embêté avec un "find"
je le test comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Worksheets("data").Range("b1:b" & Range("a65535").End(xlUp).Row)
 
    Set c = .Find("Dupuy4", LookIn:=xlValues)
    If Not c Is Nothing Then
        lg = c.Row
       End If
End With

ça marche avec "Dupon6" mais pas avec ce dupuy4 pour être un peu plus sûr je signale que le nom est directement copier de la feuille dans la code (ce qui évite les fautes de frappe
le suivi en pas à pas saute de "If Not c Is Nothing Then" à "end if"

[mercatog]

déjà il faut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets("data").Range("b1:b" & Worksheets("data").Range("a65535").End(xlUp).Row)

[Daranc]

c'est pas "déjà "...
mais: "l'erreur viens de "
merci les tests ont l'air concluant : ça find aux petits oignons