Comment créer une liste déroulante avec plusieurs cases à cocher dans Excel ?

Les listes déroulantes traditionnelles dans Excel limitent les utilisateurs à des sélections uniques. Pour surmonter cette limitation et permettre des sélections multiples, nous explorerons deux méthodes pratiques pour créer des listes déroulantes avec plusieurs cases à cocher.

Utiliser une zone de liste pour créer une liste déroulante avec plusieurs cases à cocher
A : Créer une zone de liste avec des données sources
B : Nommer la cellule où vous placerez les éléments sélectionnés
C : Insérer une forme pour afficher les éléments sélectionnés
Créer facilement une liste déroulante avec des cases à cocher grâce à un outil incroyable
Plus de tutoriels pour les listes déroulantes...

Utiliser une zone de liste pour créer une liste déroulante avec plusieurs cases à cocher

Comme le montre la capture d'écran ci-dessous, tous les noms dans la plage A2:A11 de la feuille de calcul actuelle serviront de données sources pour la zone de liste située dans la cellule C4. En cliquant sur cette boîte, la liste des éléments que vous pouvez sélectionner s'étend, et les éléments sélectionnés seront affichés dans la cellule E4. Pour y parvenir, suivez ces étapes :

A. Créer une zone de liste avec des données sources

1. Cliquez sur Développeur > Insérer > Zone de Liste (Contrôle ActiveX). Voir la capture d'écran :

2. Dessinez une zone de liste dans la feuille de calcul actuelle, faites un clic droit dessus, puis sélectionnez Propriétés dans le menu contextuel.

3. Dans la boîte de dialogue Propriétés, vous devez configurer comme suit.

• 3.1 Dans la case ListFillRange, entrez la plage source que vous afficherez dans la liste (ici, j'entre la plage A2:A11);
• 3.2 Dans la case ListStyle, sélectionnez 1 - fmListStyleOption;
• 3.3 Dans la case MultiSelect, sélectionnez 1 – fmMultiSelectMulti;
• 3.4 Fermez la boîte de dialogue Propriétés. Voir la capture d'écran :

  

B : Nommez la cellule où vous placerez les éléments sélectionnés

Si vous devez afficher tous les éléments sélectionnés dans une cellule spécifiée, telle que E4, procédez comme suit.

1. Sélectionnez la cellule E4, entrez ListBoxOutput dans la zone Nom, puis appuyez sur la touche Entrée.

C. Insérer une forme pour afficher les éléments sélectionnés

1. Cliquez sur Insérer > Formes > Rectangle. Voir la capture d'écran :

2. Dessinez un rectangle dans votre feuille de calcul (ici, je dessine le rectangle dans la cellule C4). Ensuite, faites un clic droit sur le rectangle et sélectionnez Attribuer une macro dans le menu contextuel.

3. Dans la boîte de dialogue Attribuer une macro, cliquez sur le bouton Nouveau.

4. Dans la fenêtre Microsoft Visual Basic for Applications qui s'ouvre, remplacez le code original dans la fenêtre Module par le code VBA ci-dessous.

Code VBA : Créer une liste avec plusieurs cases à cocher

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Remarque : Dans le code, Rectangle1 est le nom de la forme ; ListBox1 est le nom de la zone de liste ; Sélectionner les options et Récupérer les options sont les textes affichés de la forme ; et ListBoxOutput est le nom de la plage de la cellule de sortie. Vous pouvez les modifier en fonction de vos besoins.

5. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

6. Cliquer sur le bouton rectangle réduira ou développera la zone de liste. Lorsque la zone de liste est développée, sélectionnez les éléments souhaités en cochant les cases correspondantes. Ensuite, cliquez à nouveau sur le rectangle pour afficher tous les éléments sélectionnés dans la cellule E4. Consultez la démonstration ci-dessous :

7. Ensuite, enregistrez le classeur en tant que Classeur Excel avec macros activées pour pouvoir réutiliser le code ultérieurement.

Créer une liste déroulante avec des cases à cocher grâce à un outil incroyable

Fatigué du codage VBA complexe ? Kutools pour Excel facilite la création de listes déroulantes avec des cases à cocher pour une sélection multiple fluide. Idéal pour les sondages, le filtrage de données ou les formulaires dynamiques, cet outil convivial rationalise votre flux de travail et vous fait gagner du temps.

1. Ouvrez la feuille de calcul où vous avez défini la validation des données de la liste déroulante, cliquez sur Kutools > Liste déroulante > Activer la liste déroulante avancée. Ensuite, cliquez à nouveau sur Liste déroulante avec cases à cocher depuis la liste déroulante. Voir la capture d'écran :

2. Dans la boîte de dialogue Ajouter des cases à cocher à la liste déroulante, configurez comme suit.

• 2.1) Sélectionnez les cellules contenant la liste déroulante;
• 2.2) Dans la case Séparateur, entrez un délimiteur que vous utiliserez pour séparer les éléments multiples;
• 2.3) Cochez l'option Activer la recherche si nécessaire. (Si vous cochez cette option, vous pourrez effectuer une recherche dans la liste déroulante plus tard.)
• 2.4) Cliquez sur le bouton OK.

  

Dès maintenant, lorsque vous cliquez sur la cellule avec la liste déroulante, une zone de liste apparaîtra. Veuillez sélectionner les éléments en cochant les cases pour les afficher dans la cellule, comme le montre la démonstration ci-dessous.

Pour plus de détails sur cette fonctionnalité, veuillez consulter ce tutoriel.

Cet article propose deux méthodes pour vous aider à créer facilement des listes déroulantes avec des cases à cocher dans Excel. Vous pouvez choisir celle que vous préférez. Si vous êtes intéressé par l'exploration de plus d'astuces Excel, notre site Web propose des milliers de tutoriels.

Articles connexes :