Listes en cascade avec 3 colonnes

[loiclass]

Bonjour,

J'ai une liste en cascade à 3 colonnes.
Je n'arrive pas à faire la chose suivante:

je veux que si après avoir sélectionné un élément dans mes 3 listbox, je décide de modifier la sélection de ma 1ère listbox alors la 3ème listbox se vide.

je ne sais pas si c'est compréhensible, mais merci d'avance

Merci

 

[BOISGONTIER]

Re : Listes en cascade avec 3 colonnes

Bonsoir

Private Sub ListBox1_Click()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a4:a" & f.[a65000].End(xlUp).Row)
If c = Me.ListBox1 Then mondico(c.Offset(, 1).Value) = c.Offset(, 1).Value
Next c
Me.ListBox2.List = mondico.items
Me.ListBox2.ListIndex = -1
Me.ListBox3.Clear
End Sub

JB

 

[loiclass]

Re : Listes en cascade avec 3 colonnes

Bonsoir.

Une nouvelle fois merci pour votre aide et à votre site internet perso!