Ci-dessous, nous examinerons un programme dans Excel VBA qui crée une Userform qui contient des zones de liste déroulante à charge. Le Userform nous allons créer se présente comme suit:

de l’utilisateur des animaux dans une liste déroulante. En conséquence, l’utilisateur peut sélectionner un animal à partir d’une seconde liste déroulante.

Dependent Combo Boxes in Excel VBA

de l’utilisateur Sport dans une liste déroulante. En conséquence, l’utilisateur peut choisir un sport à partir d’une seconde liste déroulante.

Dependent Combo Boxes in Excel VBA

Pour créer cette Userform, exécutez les étapes suivantes.

  1. Ouvrez le Visual Basic Editor. Si l’Explorateur de projets n’est pas visible, cliquez sur Afficher, Project Explorer.

  2. Cliquez sur Insérer, Userform. Si la boîte à outils n’apparaît pas automatiquement, cliquez sur Affichage, Boîte à outils. Votre écran doit être configuré comme ci-dessous.

Userform Screen Setup in Excel VBA

  1. Ajoutez les zones de liste déroulante (première à gauche, la deuxième à droite) et le bouton de commande. Une fois cet exercice terminé, le résultat devrait être compatible avec l’image du Userform indiqué précédemment. Par exemple, créez un contrôle de zone de liste déroulante en cliquant sur ComboBox de la boîte à outils.

Ensuite, vous pouvez faire glisser une zone de liste déroulante sur le Userform.

  1. Vous pouvez modifier les noms et les légendes des contrôles. Les noms sont utilisés dans le code VBA Excel. Les légendes sont celles qui apparaissent sur votre écran. Il est bon de changer les noms des contrôles, mais il est pas nécessaire ici parce que nous avons seulement quelques contrôles dans cet exemple. Pour modifier la légende du bouton formUtilisateur et commande, cliquez sur Affichage, fenêtre Propriétés et cliquez sur chaque contrôle.

  2. Pour afficher le Userform, placez un bouton de commande sur votre feuille de calcul et ajoutez la ligne de code suivante:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Nous allons maintenant créer la sous UserForm_Initialize. Lorsque vous utilisez la méthode Show pour la Userform, ce sous sera exécuté automatiquement.

  1. Ouvrez Visual Basic Editor.

  2. Dans l’Explorateur de projets, cliquez droit sur UserForm1 puis cliquez sur Afficher le code.

  3. Choisissez Userform dans la liste déroulante de gauche. Choisissez Initialiser de la droite liste déroulante.

  4. Ajoutez les lignes de code suivantes:

Private Sub UserForm_Initialize()

With ComboBox1

.AddItem "Animals"

.AddItem "Sports"

.AddItem "Food"

End With

End Sub

Explication: Ces lignes de code remplissent la première zone de liste déroulante.

Nous avons créé la première partie de la Userform. Bien qu’il semble déjà soignée, rien ne se passera encore lorsque nous choisissons un élément de la première zone de liste déroulante.

  1. Dans l’Explorateur de projets, double-cliquez sur UserForm1.

  2. Double-cliquez sur la première zone de liste déroulante.

  3. Ajoutez les lignes de code suivantes:

Private Sub ComboBox1_Change()

Dim index As Integer

index = ComboBox1.ListIndex

ComboBox2.Clear

Select Case index

Case Is = 0

With ComboBox2

.AddItem "Dog"

.AddItem "Cat"

.AddItem "Horse"

End With

Case Is = 1

With ComboBox2

.AddItem "Tennis"

.AddItem "Swimming"

.AddItem "Basketball"

End With

Case Is = 2

With ComboBox2

.AddItem "Pancakes"

.AddItem "Pizza"

.AddItem "Chinese"

End With

End Select

End Sub

Explication: Excel VBA utilise la valeur de l’indice variable pour tester chaque déclaration de cas suivante pour voir avec quels éléments la deuxième zone de liste déroulante doit être rempli. Passez par notre lien: / vba-exemples sélectionner cas [Select Case]

programme pour en savoir plus sur la structure Select Case.

  1. Double-cliquez sur le bouton Importer.

  2. Ajouter la ligne de code suivant:

Private Sub CommandButton1_Click()

Range("A1").Value = ComboBox2.Value

End Sub

Résultat:

Dependent Combo Boxes in Excel VBA