toujours avec mes combobox

[david]

avant tout merci a : Doncoucou, Sousou, et a PY qui m'ont bien fait avancer

le probleme que je rencontre aujourd'hui c'est :

j'ai des listes avec dans une cellule "a" un nom et en "b" un code
"a1" un nom et en "b1" un code
"c1" un nom et en "c1" un code
etc......

comment faire si je renseigne le combobox1 avec le nom, pour que le
combobox2 affiche automatiquement le code correspondant .
Et si on renseigne le combobox2 avec le code que le combobox1 affiche automatiquement le nom correspondant.

merci à tous

 

[Robert]

Voici un exemple de ce que tu peux faire:

Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
ComboBox2.Value = ComboBox2.List(ComboBox2.ListIndex)
End Sub

Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
ComboBox1.Value = ComboBox1.List(ComboBox1.ListIndex)
End Sub

Private Sub UserForm_Initialize()
For I = 1 To 10
Me.ComboBox1.AddItem Range("A" & I).Value
Me.ComboBox2.AddItem Range("B" & I).Value
Next
End Sub

A+