Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

probleme code vba recherche par nom

tchatcheur01

XLDnaute Junior
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
 

Pièces jointes

  • Recherche clients.zip
    31 KB · Affichages: 45
  • Recherche clients.zip
    31 KB · Affichages: 49
  • Recherche clients.zip
    31 KB · Affichages: 47

EricD01

XLDnaute Junior
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…