userform, liste deroulante renseigne des textbox RESOLU

[greg62200]

bonsoir,

j'ai commence a faire un petit classeur qui devait etre tout simple au depart et vu tout ce que je lis depuis 15 jours que je suis dessus, j'ai developpe un peu mon idee
aujourd'hui j'en suis a completer une facture grace a un userform et je bute sur ca :

une liste deroulante "nomclt" donne le choix entre plusieurs noms
on choisit le nom et je voudrai que ca renseigne des textbox contenus dans le meme userform que la liste deroulante
mes infos sont sur la feuille "FichierClient" plage a2:k420
je donne le nom de qques textbox avec leur N° de colonne ds la matrice pour que je comprenne bien ce que vous voudrez bien m'expliquer
recapnumclt => 1
recapnom => 2
adresse => 3

mon dernier essai c'etait avec un Application.vlookup. mais j'ai pas reussi a faire marcher quoi que ce soit, tout comme mes autres essais :s

 

[kjin]

Re : userform, liste deroulante renseigne des textbox

Bonsoir,

je donne le nom de qques textbox avec leur N° de colonne ds la matrice pour que je comprenne bien ce que vous voudrez bien m'expliquer

=7"]A défaut de fournir un petit fichier avec 3 lignes de données et le formulaire
A+
kjin

 

[greg62200]

Re : userform, liste deroulante renseigne des textbox

bonjour, me revoila

j'ai bien avance, je commence a y prendre gout
en cherchant ma solution suis tombe sur pas mal d'infos qui m'ont permis de completer mon userform mais je bute tjs sur le vlookup
je mets mon fichier en piece jointe, l'userform concerne c "facturation"

 

[Dranreb]

Re : userform, liste deroulante renseigne des textbox

Bonjour.
À priori vous n'avez pas besoin de vlockup: nomclt.ListIndex + 1 devrai directement vous donner le numéro de ligne dans Range("fichclt")
À +

 

[greg62200]

Re : userform, liste deroulante renseigne des textbox

mon probleme est que qd je choisis un client dans l'usf facturation, il me remplit pas les champs en dessous
j'aimerai faire une recherche soit par nom soit par numero client, le fichier est dans la feuille "fichierclient"

 

[Dranreb]

Re : userform, liste deroulante renseigne des textbox

Vous avez renseigné la propriété RowSource pour les 2 ComboBox.
moi je vous conseillerais d'ajouter:

Private Sub nomclt_Change()
numclt.ListIndex = nomclt.ListIndex
GarnirChamps numclt.ListIndex + 1
End Sub
Private Sub numclt_Change()
nomclt.ListIndex = numclt.ListIndex
GarnirChamps numclt.ListIndex + 1
End Sub
Private Sub GarnirChamps(ByVal NoLgn as Long)
Dim TV() As Variant 
If NoLgn < 1 Then
    Rem effacement des champs
Else
   TV = Feuil2.[fichclt].Rows(NoLgn).Value
   Adresse = TV(1, 3)
    etc.

 

[greg62200]

Re : userform, liste deroulante renseigne des textbox

modif : ca marche
alleluia

un grand merci