Une zone de liste déroulante est une liste déroulante à partir de laquelle un utilisateur peut sélectionner un élément ou remplir son propre choix. Créer un boîte combo dans Excel VBA, exécutez les étapes suivantes.
1. Dans l'onglet Développeur, cliquez sur Insérer.
2. Dans le groupe Contrôles ActiveX, cliquez sur Zone de liste déroulante.
3. Faites glisser une zone de liste déroulante sur votre feuille de calcul.
Remarque : vous pouvez modifier le nom d'un champ en cliquant avec le bouton droit sur le champ (assurez-vous que le Mode Conception est sélectionné) puis en cliquant sur Propriétés. Pour l'instant, nous laisserons ComboBox1 comme nom de la zone de liste déroulante.
Créez un événement d'ouverture de classeur. Le code ajouté à l'événement d'ouverture du classeur sera exécuté par Excel VBA lorsque vous ouvrez le classeur.
4. Ouvrez l'éditeur Visual Basic.
5. Double-cliquez sur Ce classeur dans l'explorateur de projet.
6. Choisissez Classeur dans la liste déroulante de gauche et choisissez Ouvrir dans la liste déroulante de droite.
7. Pour ajouter des éléments à la zone de liste déroulante, ajoutez les lignes de code suivantes à l'événement d'ouverture de classeur :
Avec Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "Londres"
Terminer par
Remarque : utilisez Sheet2 si votre zone de liste déroulante est située sur la deuxième feuille de calcul, Sheet3 si votre zone de liste déroulante est située sur la troisième feuille de calcul, etc. Si vous utilisez ces lignes de code en dehors de l'événement Workbook Open, vous souhaiterez peut-être ajouter les lignes de code ci-dessous avant ces lignes de code. La première ligne de code efface la zone de liste déroulante. De cette façon, vos éléments ne seront pas ajoutés plusieurs fois si vous exécutez votre code plusieurs fois. La deuxième ligne de code efface votre propre choix.
ComboBox1.Clear
ComboBox1.Valeur = ""
8. Pour lier cette zone de liste déroulante à une cellule, faites un clic droit sur la zone de liste déroulante (assurez-vous que le mode conception est sélectionné) et cliquez sur Propriétés. Remplissez D2 pour LinkedCell.
Remarque : consultez également la propriété ListFillRange pour remplir une zone de liste déroulante avec une plage de cellules.
9. Enregistrez, fermez et rouvrez le fichier Excel.
Résultat:
Bien que dans certaines situations, il puisse être utile de placer directement une zone de liste déroulante sur votre feuille de calcul, une zone de liste déroulante est particulièrement utile lorsqu'elle est placée sur un formulaire utilisateur.
