Passer au contenu principal

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?

doc sélectionner plusieurs éléments dans la liste déroulante 1 doc flèche droite doc sélectionner plusieurs éléments dans la liste déroulante 2

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.
doc sélectionner plusieurs éléments dans la liste déroulante 3

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.

Conseil  : Avant d'appliquer cet outil, veuillez d'abord installer Kutools for Excel. Aller au téléchargement gratuit maintenant.
É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.
    doc sélectionner plusieurs éléments dans la liste déroulante kte 1
Résultat:

sélectionnez plusieurs éléments dans la liste déroulante kutools

Notes: Pour utiliser la fonctionnalité de liste déroulante à sélection multiple, vous devez d'abord installer Kutools for Excel, s'il vous plaît cliquez pour télécharger et profitez d'un essai gratuit de 30 jours maintenant.

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!
doc avancé combiner des lignes
 
Kutools for Excel : avec plus de 300 compléments Excel pratiques, à essayer gratuitement et sans limitation dans 30 jours.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Como posso utilizar a função com a planilha bloqueada?
This comment was minimized by the moderator on the site
Hi, Macros, try below code, it supports to select multi items in drop down list in protected sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) 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

And also Kutools for Excel 26.1 and later versions supports this job in protected sheet.
This comment was minimized by the moderator on the site
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Ejemplo:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
COORDINAR
ANALIZAR Y RECOMENDAR

sí selecciono:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

me aparece
ANALIZAR Y RECOMENDAR, TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y RECOMENDAR.....
This comment was minimized by the moderator on the site
Hi, Gorgelys, Kutools's multi-select drop down list can help you. The items you selected will be in the order like you want.
This comment was minimized by the moderator on the site
the code works but won't let me delete can someone please post the new code.
This comment was minimized by the moderator on the site
bonjour,
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
comment faire ?
merci par avance
This comment was minimized by the moderator on the site
Hi, sorry for that. We will upgrade our feature next version to avoid this problem. Thank you for your feekback.
This comment was minimized by the moderator on the site
Merci bcp
Mais à quand la nouvelle version ?
This comment was minimized by the moderator on the site
Hi, we have updated this version for you, but this is a beta version, please download it from this: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
If there are any problems, welcome for your feedback.
This comment was minimized by the moderator on the site
Merci,
Je vais la télécharger et essayer.
Bonne journée
This comment was minimized by the moderator on the site
Hi, the new version is in planning, since next version will upgrade multiple features, it may take somewhat time.
This comment was minimized by the moderator on the site
Hi! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
This comment was minimized by the moderator on the site
Hi, Vero, Kutools for Excel's Multi-select Drop-down List feature suports selecting multiple items from drop down list in the whole worksheet or across workbook, just specify the Specified Scope in the Multi-select Drop-down List Settings dialog.
This comment was minimized by the moderator on the site
How can I do that for the fist formula you provided :) Thanks in advanced!
This comment was minimized by the moderator on the site
Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?
This comment was minimized by the moderator on the site
I am also finding that after selecting multiple items using the updated VBA code, I still cannot clear the cell, it just keeps multiplying.
Does anyone have a solution for this yet?
This comment was minimized by the moderator on the site
Hi, Rusty, the code I have updated for making it more stable. But because the cell is in data validation, blank is out of data validation, the code cannot solve this problem.
This comment was minimized by the moderator on the site
the code works but carries over across all cells and multiplies in the cells and wont allow delete can you assist?
This comment was minimized by the moderator on the site
If I create a sheet with dropdown list using checkboxes, is there a way to share this workbook with this checkboxes feature?
This comment was minimized by the moderator on the site
How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
This comment was minimized by the moderator on the site
I used this "Select multiple items from drop down list to a cell without repeat"
this is what happened
1. Multiple selections happen without problems.
2. The issue is when i try to edit and remove an option. There is no way for me to remove an option. it keeps multiplying.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations