Comment créer des listes déroulantes dynamiques et hiérarchisées dans Excel ?
Vous savez peut-être déjà comment créer une liste déroulante de validation en cascade dans Excel. Mais savez-vous comment créer des zones de liste en cascade dynamiques ? Cet article vous présente une méthode VBA pour y parvenir.
Créer des zones de liste en cascade dynamiques à l’aide d’un code VBA
Créer des zones de liste en cascade dynamiques à l’aide d’un code VBA
Comme illustré ci-dessous, créez une zone de liste parente contenant les valeurs uniques de la colonne « Boisson », puis affichez automatiquement toutes les valeurs correspondantes dans la deuxième zone de liste en fonction de la sélection effectuée dans la zone parente. Le code VBA suivant vous permet d’obtenir ce résultat. Procédez comme suit.
1. Commencez par extraire toutes les valeurs uniques de la colonne « Boisson ». Sélectionnez une cellule vide, saisissez la formule matricielle =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),«») dans la Barre de formule, puis appuyez sur les touches Ctrl + Maj + Entrée. Ensuite, faites glisser la poignée de recopie pour obtenir toutes les valeurs uniques. Voir capture d’écran :
Remarque : dans la formule, $A$2:$A$11 correspond à la plage à partir de laquelle vous extrayez les valeurs uniques. J1 est la cellule située juste au-dessus de celle où se trouve votre formule.
Astuce : si la formule est trop difficile à mémoriser ou à utiliser, l’utilitaire Sélectionner les cellules en double/uniques de Kutools pour Excel constitue une excellente solution pour extraire rapidement toutes les valeurs uniques d’une colonne.
Sélectionnez la colonne contenant les valeurs uniques que vous souhaitez extraire. Activez ensuite l’utilitaire en cliquant sur Kutools > Sélectionner > Sélectionner les cellules en double/uniques. Dans la boîte de dialogue Sélectionner les cellules en double/uniques, cochez l’option Valeurs uniques (inclure la première valeur en double) et cliquez sur le bouton OK. Toutes les valeurs uniques de la colonne sont alors sélectionnées. Copiez-les et collez-les à un nouvel emplacement. Voir capture d’écran :
Kutools pour Excel: avec plus de 200 compléments Excel pratiques, essai gratuit sans aucune limitation pendant 60 jours.Téléchargez et essayez gratuitement dès maintenant !
2. Insérez deux zones de liste séparément en cliquant sur Développeur > Insérer > Zone de liste (contrôle ActiveX). Voir la capture d’écran :
3. Cliquez avec le bouton droit sur la zone de liste parente et choisissez Propriétés dans le menu contextuel. Dans la boîte de dialogue Propriétés, remplacez la valeur du champ (Nom) par Boisson ou tout autre nom de votre choix, saisissez dans le champ ListFillRange la plage de cellules contenant les valeurs uniques extraites, puis fermez la boîte de dialogue.
4. Répétez l’étape 3 pour renommer la deuxième zone de liste en « Article » dans le champ (Nom) de la boîte de dialogue Propriétés.
5. Cliquez avec le bouton droit sur l’onglet de la feuille, puis sélectionnez Afficher le code dans le menu contextuel. Copiez ensuite le code VBA ci-dessous dans la fenêtre Code. Voir la capture d’écran :
Code VBA : créer des zones de liste en cascade dynamiques dans Excel
Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
Dim I, xRows As Long
Dim xRg As Range
Dim xRegStr As String
Application.ScreenUpdating = False
xRegStr = Me.Drink.Text
Set xRg = Range("A2:A11")
xRows = xRg.Rows.Count
If xRegStr <> xPreStr Then
Me.Item.Clear
'Me.OtherListBoxName.Clear
Set xRg = xRg(1)
For I = 1 To xRows
If xRg.Offset(I - 1).Value = xRegStr Then
Me.Item.AddItem xRg.Offset(I - 1, 1).Value
'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
End If
Next
xPreStr = xRegStr
End If
Application.ScreenUpdating = True
End SubRemarques : dans le code, « Boisson » et « Article » sont les noms des deux zones de liste ; remplacez-les par vos propres noms.
6. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
7. Désactivez le mode Création en cliquant sur Développeur > Mode Création.
Désormais, lorsque vous sélectionnez une boisson, par exemple « Café », dans la zone de liste parente, tous les articles liés au café s’affichent automatiquement dans la deuxième zone. De même, choisir « Thé » ou « Vin » n’affichera que les articles correspondants dans la deuxième zone de liste. Voir capture d’écran :
Articles associés :
- Comment effacer automatiquement une cellule dotée d’une liste déroulante dépendante lorsqu’on modifie la sélection dans Excel ?
- Comment créer des listes déroulantes hiérarchiques et dépendantes dans Excel ?
- Comment remplir automatiquement d’autres cellules lorsque vous sélectionnez une valeur dans une liste déroulante Excel ?
- Comment créer un calendrier sous forme de liste déroulante dans Excel ?
- C omment enregistrer ou conserver les sélections des zones de liste ActiveX dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels