Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Enlever doublons dans une liste déroulante

Enlever doublons dans une liste déroulante

1 réponse
Avatar
pierref
Bonjour,

Dans un classeur Excel, j'ai une feuille de données contenant des colonnes
avec des doublons.

Sur une autre feuille, j'ai une liste déroulante qui prend les valeurs d'une
colonne de la feuille de données comme source de ListFillRange.

Ma colonne de données est par exemple:
x
x
y
y
z
z

Je définis les valeurs de ma liste déroulante par le code suivant:

ListeFilter.ListFillRange = "Data!D1:D6"

Mais j'aimerais supprimer les doublons pour obtenir dans la liste:
x
y
z

Quelqu'un aurait il une solution?

Merci d'avance

Pierre
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Pour initialiser une Combobox (sur une feuille) en extrayant les valeurs uniques
d'une liste située en A1:Axx de la feuille "Feuil1" :

Sub Uniq_Dans_Combo()
Dim Tbl As New Collection
Dim I As Long
Set Plage = Sheets("Feuil1").Range("A1:A" & [A65536].End(3).Row)
On Error Resume Next
For Each C In Plage
Tbl.Add C.Value, CStr(C.Value)
Next C
On Error GoTo 0
With Worksheets("Feuil1").ComboBox1
.Clear
For I = 1 To Tbl.Count
.AddItem Tbl(I)
Next I
.ListIndex = 0
End With
Set Tbl = Nothing
End Sub

AV