Re : probleme code vba recherche par nom
Salut...
J'ai redéfini ta variable derlign et chez moi ça fonctionne...
Public Function ChercheClient(ByVal StrClient As String)
Dim Lign As Long
Dim derlign As Long
With Worksheets("BaseClients")
derlign = .Range("A65536").End(xlUp).Row
Lign = .Range(.Cells(2, 1), .Cells(derlign, 1)).Find(StrClient).Row
UsF_RechercheClient.Nom.Value = .Range("A" & Lign).Value
UsF_RechercheClient.Prenom.Value = .Range("B" & Lign).Value
UsF_RechercheClient.Adresse.Value = .Range("C" & Lign).Value
UsF_RechercheClient.CP = .Range("D" & Lign).Value
UsF_RechercheClient.Ville.Value = .Range("E" & Lign).Value
UsF_RechercheClient.Tel.Value = .Range("F" & Lign).Value
UsF_RechercheClient.Portable.Value = .Range("G" & Lign).Value
UsF_RechercheClient.Mail.Value = .Range("H" & Lign).Value
End With
End Function