Réaliser dans un userform une combobox dynamique Résolu

Question

Bonjour,
Je souhaite réaliser dans un userform une combobox dont le contenu dépend d'une autre.
Exemple:
Feuille excel:
colonneA        ColonneB
NOM               Prénom
Dupont           Pierre
Durant            Phillippe
Dupont           Marc
...                    ...

Je souhaite que la première combobox me propose les noms de la colonne A
(Ca je sais faire)
Je souhaiterais que la deuxième combobox me propose les prénoms de la colonne B
Mais uniquement les prénoms pierre et marc si je choisi Dupont dans la première,
et uniquement Phillippe si je choisi Durant.

En espérant être clair.
Je n'ai pas trouvé de réponse sur le forum
Merci d'avance
Whouann

WeaponEDGE · Answer

Bonjour,

En fait tu souhaites tout simplement filtrer sur un NOM

Pour alimenter ta combobox je suppose que tu as mis ton code dans L'initalisation du userform comme dans l'exemple ci-dessous :

Sub UserForm_Initialize()
    Dim Nb_Lgn As Long, y As Byte
        
    Nb_Lgn = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
    
    For y = 2 To Nb_Lgn
        Manitou.ComboBox1.AddItem Sheets("Feuil1").Cells(y, 1) 'Alimente le NOM
        Manitou.ComboBox2.AddItem Sheets("Feuil1").Cells(y, 2) 'Alimente le Prénom
    Next i
End Sub

Pour le Filtrage il suffit de démarrer une macro au changement de contenu de la Combobox1

Sur ton userform double click sur ton ComboBox1, il génèrera automatique la macro ComboBox_Change

Copie ensuite le code suivant :

Sub ComboBox1_Change()
    Dim Nb_Lgn As Long, y As Byte, NOM_Lgn As Variant
    UserForm1.ComboBox2.Clear 'Vide la ComboBox2
    
    Nb_Lgn = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
    
    For y = 2 To Nb_Lgn
        NOM_Lgn = Sheets("Feuil1").Cells(y, 1)
        
        If NOM_Lgn = UserForm1.ComboBox1 Then
            UserForm1.ComboBox2.AddItem Sheets("Feuil1").Cells(y, 2)
        End If
    Next i
End Sub

Voilà,

A chaque changement de Nom dans ta combobox1, il videra le contenu de la ComboBox2 et alimentera uniquement les prénoms dont le Nom sera identique à ta sélection.

Si tu as renommé ton Userform, penses à remplacer tout les Userform1 par le nom que tu lui a donné.

foo · Answer

Bonjour

Voila un modele de combobox

http://cjoint.com/?3IekTafACGK 

A+

Maurice

whouann · Answer

Super,
merci beaucoup à tous pour la qualité et la rapidité de vos réponses.
Je teste cela dés que possible.
Encore merci
Whouann

foo · Answer

Bonjour

voila la rectif

Dim Nb_Lgn As Long, Lig As Byte

Nb_Lgn = Feuil12.Range("B" & Rows.Count).End(xlUp).Row

   For Lig = 1 To Nb_Lgn
       ComboBoxetape1.AddItem Feuil12.Cells(Lig, 2)
       ComboBoxpanne1.AddItem Feuil12.Cells(Lig, 3)
   Next

A+
Maurice

whouann · Answer

Ca marche, et dernière question:
comment retirer les doublons du menu déroulant?
Merci pour le temps accordé, ca fait plaisir.
Whouann

foo · Answer

Bonjour

Combobox sans doublons

ComboBoxetape1.Clear
For i = 1 To Feuil12.Range("B" & Rows.Count).End(xlUp).Row
  ComboBoxetape1 = Feuil12.Range("B" & i)
  If ComboBoxetape1.ListIndex = -1 Then ComboBoxetape1.AddItem Feuil12.Range("B" & i)
Next i
ComboBoxetape1.ListIndex = -1

A+
Maurice

Réaliser dans un userform une combobox dynamique

6 réponses

Discussions similaires

Newsletters