Combo en cascade

[Jean-luc1311]

Bonsoir à tous,

Comment faire pour ajouter un niveau supplémentaire à ce code ?

Merci pour le coup de main.

Cdt.

 

[Papou-net]

Re : Combo en cascade

Bonsoir Jean-luc1311,

Tu étais bien pari, pourquoi ne pas avoir continué sur la même lancée ?

Private Sub ComboBox3_Change()
Set mondico = CreateObject("scripting.dictionary")
For Each c In Range(f.[D2], f.[D65000].End(xlUp))
  If c = Me.ComboBox1 And c.Offset(, 1) = Me.ComboBox2 And c.Offset(, 2) = Me.ComboBox3 Then mondico(c.Offset(, 3).Value) = c.Offset(, 3).Value
Next c
Me.ComboBox4.List = mondico.items
Me.ComboBox4.ListIndex = -1
End Sub

Espérant avoir répondu.

Cordialement.

 

[Jean-luc1311]

Re : Combo en cascade

Ok j'ai compris mon erreur, merci et bonne soirée.