Remplir une textbox avec une combobox

Squoltahthx94 · 9 Septembre 2012

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 :

Code:

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 · 9 Septembre 2012

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 · 10 Septembre 2012

Re : Remplir une textbox avec une combobox

Papou-net à dit:
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 · 10 Septembre 2012

Re : Remplir une textbox avec une combobox

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

Code:

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

Remplir une textbox avec une combobox

Squoltahthx94

XLDnaute Occasionnel

Papou-net

XLDnaute Barbatruc

Squoltahthx94

XLDnaute Occasionnel

Squoltahthx94

XLDnaute Occasionnel

Discussions similaires