probleme code vba recherche par nom

[tchatcheur01]

Bonjour le forum ;

c'est pour rechercher les clients par nom et je crois que le code vba n'ai pas correct !
si quelqu'un peut regarder d'ou sa vient !

merci
ci joint feuille concernée avec l'userform ;

bonne soirée à tous

 

[tchatcheur01]

Re : probleme code vba recherche par nom

bonjour le forum

affaire réglée !!! après 1 heure de recherches enfin trouvé !!!!!!!

merci quand meme !

 

[EricD01]

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

 

[kjin]

Re : probleme code vba recherche par nom

Bonjour,
Le fichier en PJ
Toujours pas d'idée pour les chèques cadeaux
A+
kjin

 

[tchatcheur01]

Re : probleme code vba recherche par nom

bonsoir le forum ,

merci pour vos réponses .

Merci à tous pour votre gentillesses .