Combobox

[roro69]

Bonjour;
Voila ma question:
J'aimerais choisir dans une combo,un item et que dans une seconde combo s'affiche sa correspondance.
Je vous remerci d'avance.

 

[bqtr]

Re : Combobox

Bonjour roro69,

Si j'ai bien compris ta demande, essaye ce code :

Private Sub ComboBox1_Change()
Dim cell As Range
Dim ingredient
ComboBox4.Clear
ingredient = ComboBox1.Value
With Sheets("ListeProd")
For Each cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
If cell.Value = ingredient Then
ComboBox4.AddItem cell.Offset(0, 1).Value
End If
Next
End With
End Sub

A placer dans le code du UserForm

Bonne Soirée

P.O

 

[roro69]

Re : Combobox

Bonjour
C'est très bien merci beaucoup
Bonne journée