Bonjour à tous et à toutes
J'ai pris ce code sur le site de BJ.
Je voulais le modifier pour l'utiliser avec 3 combobox
Mais je n'y arrive pas, mes compétances limitées ne me le permettent pas.
Pouvez vous m'aider,je vous joint le code d'origine et le fichier avec mes modif.
Cordialement J-C et merci à BJ .
J'ai pris ce code sur le site de BJ.
Je voulais le modifier pour l'utiliser avec 3 combobox
Mais je n'y arrive pas, mes compétances limitées ne me le permettent pas.
Pouvez vous m'aider,je vous joint le code d'origine et le fichier avec mes modif.
Cordialement J-C et merci à BJ .
Code:
Private Sub UserForm_Initialize()
Set f = Sheets("continent")
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("A2", f.[A65000].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
Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Set f = Sheets("continent")
Me.ComboBox2.Clear
For Each c In f.Range("A2", f.[A65000].End(xlUp))
If c = Me.ComboBox1 Or Me.ComboBox1 = "*" Then
Me.ComboBox2.AddItem c.Offset(0, 1)
End If
Next c
Me.ComboBox2.ListIndex = 0
End Sub
Pièces jointes
Dernière édition: