Comment sélectionner plusieurs éléments de la liste déroulante dans une cellule dans Excel?

La liste déroulante est fréquemment utilisée dans le travail quotidien d'Excel. Par défaut, un seul élément peut être sélectionné dans une liste déroulante. Mais dans certains cas, vous devrez peut-être sélectionner plusieurs éléments de la liste déroulante dans une seule cellule, comme illustré ci-dessous. Comment pouvez-vous gérer cela dans Excel?

Sélectionnez plusieurs éléments de la liste déroulante dans une cellule avec VBA

Sélectionnez plusieurs éléments de la liste déroulante dans une cellule facilement et rapidement

Sélectionnez plusieurs éléments de la liste déroulante dans une cellule avec VBA

Voici quelques VBA qui peuvent vous rendre service pour résoudre ce problème.

Sélectionnez les éléments en double dans la liste déroulante dans une cellule

1. Après avoir créé une liste déroulante, cliquez avec le bouton droit sur l'onglet de la feuille pour sélectionner Voir le code dans le menu contextuel.

2. Puis dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code ci-dessous dans le script vide.

VBA: sélectionnez plusieurs éléments dans la liste déroulante dans une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Enregistrez le code et fermez la fenêtre pour revenir à la liste déroulante. Vous pouvez maintenant sélectionner plusieurs éléments dans la liste déroulante.

Remarque:

1. Avec le VBA, il sépare les éléments par espace, vous pouvez changer xStrNew = xStrNew & "" & Valeur cible à d'autres pour changer le délimiteur selon vos besoins. Par exemple, xStrNew = xStrNew & "," & Valeur cible séparera les éléments par des virgules.

2. Ce code VBA fonctionne pour toutes les listes déroulantes de la feuille.

Sélectionnez plusieurs éléments de la liste déroulante vers une cellule sans répétition

Si vous souhaitez simplement sélectionner des éléments uniques dans la liste déroulante vers une cellule, vous pouvez répéter les étapes ci-dessus et utiliser le code ci-dessous.

VBA ： Sélectionnez plusieurs éléments de la liste déroulante vers une cellule sans répétition

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Les deux codes VBA ci-dessus ne prennent pas en charge la suppression de parties du contenu de la cellule, ne prennent en charge que la suppression de tous les éléments de la cellule.

Sélectionnez plusieurs éléments de la liste déroulante dans une cellule facilement et rapidement

Dans Excel, à l'exception du code VBA, il n'existe aucun autre moyen d'autoriser plusieurs éléments sélectionnés dans la liste déroulante d'une cellule. Cependant, le Liste déroulante à sélection multiple caractéristique de Kutools for Excel peut rapidement et facilement gérer ce travail en quelques clics.

Étape 1: Sélectionnez Kutools > Liste déroulante > Liste déroulante à sélection multiple

Étape 2 : Dans la boîte de dialogue Liste déroulante à sélection multiple, spécifiez les paramètres

1. Définir la portée ;
2. Spécifiez le séparateur pour délimiter les éléments dans une cellule ;
3. Décidez de la direction du texte；
4. Cliquez sur OK.
   

Résultat:

Créez facilement une liste déroulante dépendante dynamique à 2 ou plusieurs niveaux dans Excel

Dans Excel, créer une liste déroulante à 2 ou plusieurs niveaux est complexe. Ici le Liste déroulante dynamique utilité de Kutools for Excel peut vous faire une faveur. Il vous suffit de classer les données comme indiqué dans l'exemple, puis de sélectionner la plage de données et la plage de sortie, puis de laisser l'utilitaire s'en charger.  Cliquez pour un essai gratuit de 30 jours!

Kutools for Excel : avec plus de 300 compléments Excel pratiques, à essayer gratuitement et sans limitation dans 30 jours.