Comment remplir une liste déroulante avec des valeurs uniques dans Excel ?
Lorsque vous créez une zone de liste déroulante à partir d’une liste de données contenant des valeurs en double, ces doublons ne sont pas automatiquement exclus de la liste. Comment afficher uniquement les éléments uniques dans votre liste déroulante ? Ce tutoriel pourrait vous être utile.
Remplir une zone de liste déroulante avec Valeurs uniques à l’aide d’un code VBA
Remplir une zone de liste déroulante avec Valeurs uniques à l’aide d’un code VBA
Le code VBA suivant vous permet d’ajouter uniquement des valeurs uniques lors de la création d’une zone de liste déroulante. Procédez comme suit :
1. Insérez d’abord une zone de liste déroulante : cliquez sur Développeur > Insérer > Zone de liste déroulante (contrôle ActiveX), puis faites glisser la souris pour dessiner la zone de liste déroulante. Voir la capture d’écran :
2. Cliquez ensuite avec le bouton droit sur la zone de la liste déroulante et choisissez Afficher le code dans le menu contextuel. Voir la capture d’écran :
3. La fenêtre Microsoft Visual Basic pour Applications s’ouvre alors. Veuillez copier et coller le code suivant pour remplacer le code d’origine.
Code VBA : zone de liste déroulante avec des valeurs uniques :
Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
Dim vStr, eStr
Dim dObj As Object
Dim xRg As Range
On Error Resume Next
Set dObj = CreateObject("Scripting.Dictionary")
Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
vStr = xRg.Value
Application.ScreenUpdating = False
With dObj
.comparemode = 1
For Each eStr In vStr
If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
Next
If .Count Then
ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
End If
End With
Application.ScreenUpdating = True
End Sub
Remarque : Dans le code ci-dessus, ComboBox1 est le nom de la zone de liste déroulante que vous avez créée. Vous pouvez l’adapter à vos besoins.
4. Appuyez ensuite sur la touche F5 pour exécuter ce code. Dans la boîte de dialogue qui s’affiche, veuillez sélectionner la plage source que vous souhaitez ajouter à la zone de liste déroulante. Voir la capture d’écran :
5. Cliquez ensuite sur le bouton OK. Seules les valeurs uniques s’affichent alors dans la liste déroulante. Voir la capture d’écran :
Astuce : S’il n’y a pas d’onglet Développeur dans le Ruban, cet article Comment afficher l’onglet Développeur dans Excel 2007/2010/2013 Ruban ? pourrait vous aider à faire apparaître l’onglet Développeur.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
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