Remplir une textbox avec une combobox

[Squoltahthx94]

Bonjour
J'ai sur un onglet des informations de type compte client en colonne "a"; nom client en colonne "b", Agence colonne "c" etc...

J'ai un Userform dans lequel il y a un combobox rempli des numéro client et je souhaiterais qu'en fonction du compte client affiché, les textbox se remplissent des informations correspondantes.

j'ai essayer :

Private Sub TxtBxNom_Change() 'txtbxnom est le nom de ma combobox contenant le nom qui doit safficher
ligne = CbxCptClt.ListIndex 'cbxcptclt est la combobox contenant les comptes clients
    If ligne > 0 Then TxtBxNom.Text = Cells(ligne + 1, 2)
End Sub

mais ça ne fonctionne pas ...qq1 à une solution

 

[Papou-net]

Re : Remplir une textbox avec une combobox

Bonsoir Squolthahthx94,

Il te faut mettre ce code dans l'événement Change de ton ComboBox et non dans celui du TextBox.

Cordialement.

 

[Squoltahthx94]

Re : Remplir une textbox avec une combobox

Bonsoir Squolthahthx94,

Il te faut mettre ce code dans l'événement Change de ton ComboBox et non dans celui du TextBox.

Cordialement.

Bonjour,

Merci Papou-net mais cela ne fonctionne pas.

 

[Squoltahthx94]

Re : Remplir une textbox avec une combobox

bonjour,
j'ai trouve, il fallait faire comme ceci :

Private Sub CbxCptClt_Change()
a = CbxCptClt.ListIndex + 2
TxtBxNom = Sheets("clients").Range("B" & a)
TxtBxVille = Sheets("clients").Range("C" & a)
TxtBxAgence = Sheets("clients").Range("C" & a)
End Sub

Merci encore