Cascade de combobox sur 2 feuil

Question

J'ai lu tous le cours sur les combobox. j'ai 2 combobox en cascade qui fonctionne très bien quand les donner sont sur la feuil ouverte. je voudrais que la userform recherche dans la feuil 2 . je vous envoie l’exemple. merci d'avance...

archer · Answer

Bosoir

voila une modife a toi de voir

A+

Maurice

Private Sub UserForm_Initialize()
   For i = 1 To 4 ' => pour lister les 4 pays
      ComboBox_Pays.AddItem Feuil1.Cells(1, i).Value  'Sheets(Feuil2) 'Ajoute les valeurs des cellules A1 à A4 avec la boucle
   Next
End Sub

Private Sub ComboBox_Pays_Change()
Dim no_colonne As Integer, nb_lignes As Integer
ComboBox1.Clear
no_colonne = ComboBox_Pays.ListIndex + 1
nb_lignes = Feuil1.Cells(1, no_colonne).End(xlDown).Row
   For i = 2 To nb_lignes ' => pour lister les villes
      ComboBox1.AddItem Feuil1.Cells(i, no_colonne)
   Next
End Sub

archer · Answer

Re bonsoir voila un autre solution évolutive tu peux mettre autant de pays que tu veux sans changer le code A+ Maurice...