Remplissage listbox depuis Combobox

Bonjour,
dans un UserForm j'ai un souci pour remplir deux listbox depuis une comboBox. Je préféré joindre le fichier parce que c'est pas facile a expliquer, le but et de remplir les listbox 1 et 2 de l'UserForm6, en fonction du ComboBox3, les donner sont dans l'onglet base colonne L et M.

Cordialement
Florian

Pièce jointe 164380

Bonsoir,

tu peux adapter ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub ComboBox3_Change() Dim plage As Range, x As Integer Dim cel As Range With Worksheets("base") Set plage = .Range("K2:K" & .Range("K" & .Rows.Count).End(xlUp).Row) For x = 2 To 3 Controls("listBox" & x - 1).Clear For Each cel In plage If cel = ComboBox3 Then Controls("listBox" & x - 1).AddItem cel(1, x) End If Next cel Next x End With   End Sub

---

Impeccable ça marche nickel merci beaucoup.


Cordialement Florian