4 comboBox dans le meme Userform[résolu]

[surplus]

Bonjour
J'ai 4 ComboBox dans le même userform qui fonctionnent 2 par 2
Marque avec Type et département avec ville
Ça fonctionne bien quand j'ai que 2 comboBox .
Des que j'ajoute 2 de plus j'arrive pas a le mettre en place
le combobox ville reste vide ça bloque j'ai beau retourner les formules
ça bloque Toujours
merci de votre aide

 

[CHALET53]

Re : 4 comboBox dans le meme Userform

Bonjour,

Modifie :

Private Sub Base_Click()

Me.Sous_base.Clear
Set dico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("C2:C" & f.[C65000].End(xlUp).Row) ' on explore la colonne de niveau 1

If c = Val(Me.Base) Then dico(c.Offset(, 1).Value) = "" ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
Next c
Me.Sous_base.List = dico.keys

End Sub


a+

 

[surplus]

Re : 4 comboBox dans le meme Userform

Bonjour,
ca marche impec
merci de ton aide
a bientot