Ci-dessous, nous examinerons un programme en Excel VBA qui crée un Userform qui contient zones de liste déroulante dépendantes. Le formulaire utilisateur que nous allons créer se présente comme suit :
L'utilisateur sélectionne Animaux dans une liste déroulante. En conséquence, l'utilisateur peut sélectionner un animal dans une seconde liste déroulante.
L'utilisateur sélectionne Sports dans une liste déroulante. En conséquence, l'utilisateur peut sélectionner un sport dans une seconde liste déroulante.
Pour créer ce formulaire utilisateur, exécutez les étapes suivantes.
1. Ouvrez l'éditeur Visual Basic. Si l'Explorateur de projets n'est pas visible, cliquez sur Affichage, Explorateur de projets.
2. Cliquez sur Insérer, Formulaire utilisateur. Si la boîte à outils n'apparaît pas automatiquement, cliquez sur Affichage, Boîte à outils. Votre écran doit être configuré comme ci-dessous.
3. Ajoutez les zones de liste déroulante (la première à gauche, la seconde à droite) et le bouton de commande. Une fois cette opération terminée, le résultat doit être cohérent avec l'image du formulaire utilisateur présentée précédemment. Par exemple, créez un contrôle de zone de liste déroulante en cliquant sur ComboBox dans la boîte à outils. Ensuite, vous pouvez faire glisser une zone de liste déroulante sur le formulaire utilisateur.
4. Vous pouvez modifier les noms et les légendes des champs. Les noms sont utilisés dans le code Excel VBA. Les légendes sont celles qui apparaissent sur votre écran. C'est une bonne pratique de changer les noms des contrôles, mais ce n'est pas nécessaire ici car nous n'avons que quelques contrôles dans cet exemple. Pour modifier la légende du formulaire utilisateur et du bouton de commande, cliquez sur Affichage, Fenêtre Propriétés et cliquez sur chaque contrôle.
5. Pour afficher l'Userform, placez un bouton de commande sur votre feuille de calcul et ajoutez la ligne de code suivante :
Private Sub CommandButton1_Click()
UserForm1.Show
Fin du sous-marin
Nous allons maintenant créer le Sub UserForm_Initialize. Lorsque vous utilisez la méthode Show pour le Userform, ce sous-programme sera automatiquement exécuté.
6. Ouvrez l'éditeur Visual Basic.
7. Dans l'Explorateur de projets, cliquez avec le bouton droit sur UserForm1 et puis cliquez sur Afficher le code.
8. Choisissez Userform dans la liste déroulante de gauche. Choisissez Initialiser dans la liste déroulante de droite.
9. Ajoutez les lignes de code suivantes :
Private Sub UserForm_Initialize()
Avec ComboBox1
.AddItem "Animaux"
.AddItem "Sports"
.AddItem "Nourriture"
Terminer par
Fin du sous-marin
Explication : Ces lignes de code remplissent la première zone de liste déroulante.
Nous avons maintenant créé la première partie du Userform. Bien que cela ait déjà l'air soigné, rien ne se passera encore lorsque nous sélectionnerons un élément dans la première zone de liste déroulante.
10. Dans l'Explorateur de projets, double-cliquez sur UserForm1.
11. Double-cliquez sur la première zone de liste déroulante.
12. Ajoutez les lignes de code suivantes :
Sous-combo privé privé1_Change()
Dim index As Integer
index = ComboBox1.ListIndex
ComboBox2.Clear
Sélectionner l'index de cas
Cas Est = 0
Avec ComboBox2
.AddItem "Chien"
.AddItem "Chat"
.AddItem "Cheval"
Terminer par
Cas Est = 1
Avec ComboBox2
.AddItem "Tennis"
.AddItem "Natation"
.AddItem "Basket"
Terminer par
Cas Est = 2
Avec ComboBox2
.AddItem "Crêpes"
.AddItem "Pizza"
.AddItem "Chinois"
Terminer par
Fin de la sélection
Fin du sous-marin
Explication : Excel VBA utilise la valeur de l'index de variable pour tester chaque instruction Case suivante afin de voir avec quels éléments la deuxième zone de liste déroulante doit être remplie. Parcourez notre programme Select Case pour en savoir plus sur la structure Select Case.
13. Double-cliquez sur le bouton Importer.
14. Ajoutez la ligne de code suivante :
Private Sub CommandButton1_Click()
Plage("A1").Valeur = ComboBox2.Value
Fin du sous-marin
Résultat:
