Bonjour à tous
j'esaai d'adapter le code boisgontierjacques pour mes besoins par contre ca bloc surtout j'ai plusieurs feuils sur mon classeur
mon but c'est de pouvoir trier les départements sur une combobox appeler département qui trie la combobox ensuite avoir affichage automatique du code postal sur ma textbox appeller cp
Quelqu'un à une idée ou un coup de pousse svp
j'esaai d'adapter le code boisgontierjacques pour mes besoins par contre ca bloc surtout j'ai plusieurs feuils sur mon classeur
mon but c'est de pouvoir trier les départements sur une combobox appeler département qui trie la combobox ensuite avoir affichage automatique du code postal sur ma textbox appeller cp
Code:
Private Sub UserForm_Initialize()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
Me.Dépat.AddItem
For Each i In mondico.items
Me.Dépt.ListIndex = -1
Me.Dépat.AddItem i
Next
End Sub
Code:
Liste cascade pays
Private Sub UserForm_Initialize()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range([C2], [C65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
Me.ComboBox1.AddItem "*"
For Each i In mondico.items
Me.ComboBox1.AddItem i
Next
End Sub
Private Sub Dépt_Change()
i = 0
Me.Villes.Clear
For Each c In Range([B2], [B65000].End(xlUp))
Me.Villes.AddItem
Me.Villes.List(i, 0) = c.Value
Me.Villes.List(i, 1) = c.Offset(0, 2).Value
me.cp.value = c.offset(0,3)
i = i + 1
End If
Next c
End Sub