filtre pour combobox

[geraldvc]

Bonjour,

J'ai une combobox (cbxa14; continent) qui détermine un continent, et je voudrais que dans la combo (cbxa10,pays) ne viennent que la liste des pays sélectinner par le continent!!



ps la liste des pays est sur la feuille continent

 

[BOISGONTIER]

Re : filtre pour combobox

Bonjour,

Voir PJ

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.List = mondico.items
   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 Then
       Me.ComboBox2.AddItem c.Offset(0, 1)
     End If
   Next c
   Me.ComboBox2.ListIndex = 0
End Sub

JB
Formation Excel VBA JB

 

[geraldvc]

Re : filtre pour combobox

merci 1000 fois