Note: The other languages of the website are Google-translated. Back to English

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 avec l'option pratique de Kutools for Excel


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)
'UpdatebyExtendoffice20210409
    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
    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

doc sélectionner plusieurs éléments dans la liste déroulante 4

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)
'UpdatebyExtendoffice20180510
    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
    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

Sélectionnez plusieurs éléments de la liste déroulante dans une cellule avec l'option pratique de Kutools for Excel

Si vous n'êtes pas familier avec le code VBA, vous pouvez installation gratuite un outil pratique - Kutools pour Excel, qui contient un groupe d'utilitaires sur la liste déroulante, et il existe une option Liste déroulante à sélection multiple peut vous aider à sélectionner facilement plusieurs éléments de la liste déroulante dans une cellule.

Après avoir créé la liste déroulante, veuillez sélectionner les cellules de la liste déroulante et cliquez sur Kutools > La liste déroulante > Liste déroulante à sélection multiple pour activer cet utilitaire.
doc kutools liste déroulante de sélection multiple 1

Ensuite, les cellules de la liste déroulante sélectionnées peuvent être sélectionnées plusieurs éléments dans la cellule.

Si vous utilisez cette option pour la première fois, vous pouvez spécifier les paramètres de cet utilitaire dont vous avez besoin avant d'appliquer cet utilitaire.

CLIQUEZ Kutools > La liste déroulante > la flèche à côté Liste déroulante à sélection multiple > Paramètres.
doc kutools liste déroulante de sélection multiple 2

Puis dans le Paramètres de la liste déroulante à sélection multiple dialogue, vous pouvez

1) Spécifiez la portée d'application selon vos besoins;

2) Spécifiez la direction de l'emplacement des articles;

3) Spécifiez le séparateur entre les éléments;

4) Spécifiez si vous n'ajoutez pas de doublons et supprimez les éléments en double.

CLIQUEZ Ok et cliquez sur Kutools > La liste déroulante > Liste déroulante à sélection multiple pour en faire effet.

Conseil : Pour appliquer le Liste déroulante à sélection multiple utilitaire, vous devez installer au début. Si vous souhaitez créer une liste déroulante avec plusieurs niveaux, l'utilitaire ci-dessous peut vous aider.

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 pour 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, essayez gratuitement sans limitation en 30 jours.

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (14)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Après l'ajout, les données de la liste déroulante, la suppression ne fonctionne pas.
démerder
Ce commentaire a été minimisé par le modérateur sur le site
J'ai trouvé le même problème. Je pense avoir trouvé un moyen de le surmonter. Au bas du code, vous verrez le code "xStrNew = xStrOld". Au lieu de cela, faites-lui dire xStrNew = " "

Ça marche pour moi.
Susan Lynn
Ce commentaire a été minimisé par le modérateur sur le site
Une chance que vous ayez encore ce code ? J'essaie de faire ce que vous avez dit, mais le texte est toujours en double.
Merci
CJ
Ce commentaire a été minimisé par le modérateur sur le site
Je suis désolé mais je ne le fais pas. Cependant, je viens de regarder le code ci-dessus et il semble que l'auteur ait modifié le code avec ma suggestion.

postez votre problème sur le fil principal de cet article.
Susan Lynn
Ce commentaire a été minimisé par le modérateur sur le site
dans le premier code ajouter la ligne suivante entre les lignes 6 et 7 (10-11 dans le second code) : Si Target.Value = "" alors quitter le sous-marin
Quetzal Chapa
Ce commentaire a été minimisé par le modérateur sur le site
J'ai utilisé ceci "Sélectionner plusieurs éléments de la liste déroulante dans une cellule sans répétition"
c'est ce qui s'est passé
1. Les sélections multiples se font sans problème.
2. Le problème survient lorsque j'essaie de modifier et de supprimer une option. Il n'y a aucun moyen pour moi de supprimer une option. ça ne cesse de se multiplier.
Madhu
Ce commentaire a été minimisé par le modérateur sur le site
Comment appliqueriez-vous cette fonctionnalité, mais en faisant en sorte qu'il n'y ait pas de valeurs redondantes ? Toute aide serait appréciée!
John
Ce commentaire a été minimisé par le modérateur sur le site
Si je crée une feuille avec une liste déroulante à l'aide de cases à cocher, existe-t-il un moyen de partager ce classeur avec cette fonctionnalité de cases à cocher ?
Karim Abdel Razek
Ce commentaire a été minimisé par le modérateur sur le site
Je constate également qu'après avoir sélectionné plusieurs éléments à l'aide du code VBA mis à jour, je ne peux toujours pas effacer la cellule, elle ne cesse de se multiplier.
Quelqu'un a-t-il encore une solution à cela?
Rouillé
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Rusty, le code que j'ai mis à jour pour le rendre plus stable. Mais parce que la cellule est en validation de données, vide est hors validation de données, le code ne peut pas résoudre ce problème.
Maison ensoleillé
Ce commentaire a été minimisé par le modérateur sur le site
Quando quero deletar alguma opção ou todas dá erro. Como possible résolveur ?
Flavia Singh
Ce commentaire a été minimisé par le modérateur sur le site
Salut! Como puedo usar este codigo para todo un worksheet y no solo para una pestana ?
Vero
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Vero, Kutools for Excel's La fonction de liste déroulante à sélection multiple permet de sélectionner plusieurs éléments dans la liste déroulante de la feuille de calcul entière ou du classeur, il suffit de spécifier la portée spécifiée dans la boîte de dialogue Paramètres de la liste déroulante à sélection multiple.
Maison ensoleillé
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je faire cela pour la première formule que vous avez fournie :) Merci d'avance !
Vero
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés