Bonjour à tous,
Désolé de venir vous embêter avec ça mais je patauge avec les Combobox en cascade de mon Userform.
Pas de problème pour définir la liste de la première Combobox mais ensuite j'ai une erreur d'execution 424 que je ne comprends pas au niveau du passage en gras.
J'ai fouillé sur le forum mais le code me paraît correct.
Un avis d'expert ?
En PJ, le fichier
Désolé de venir vous embêter avec ça mais je patauge avec les Combobox en cascade de mon Userform.
Pas de problème pour définir la liste de la première Combobox mais ensuite j'ai une erreur d'execution 424 que je ne comprends pas au niveau du passage en gras.
J'ai fouillé sur le forum mais le code me paraît correct.
Private Sub UserForm_Initialize()
'Combobox en cascade
Set f = Sheets("Liste")
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(f.[A2], f.[A300].End(xlUp))
mondico(C.Value) = C.Value
Next C
Me.ComboBox3.List = mondico.items
End Sub
Private Sub ComboBox3_Change()
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(f.[A2], f.[A300].End(xlUp))
If C = Me.ComboBox3 Then mondico(C.Offset(, 1).Value) = C.Offset(, 1).Value
Next C
Me.ComboBox4.List = mondico.items
Me.ComboBox4.ListIndex = -1
Me.ComboBox5.ListIndex = -1
End Sub
Private Sub ComboBox4_Change()
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(f.[A2], f.[A300].End(xlUp))
If C = Me.ComboBox3 And C.Offset(, 1) = Me.ComboBox4 Then mondico(C.Offset(, 2).Value) = C.Offset(, 2).Value
Next C
Me.ComboBox5.List = mondico.items
Me.ComboBox5.ListIndex = -1
End Sub
Un avis d'expert ?
En PJ, le fichier