Excel : ne pas afficher les doublonsRésolu

Question

Bonjour &#224; tous.


J'ai cr&#233;&#233; un formulaire VBA dans Excel. Ce formulaire contient un ComboBox, qui contient les donn&#233;es de la colonne A
Comment ne pas afficher les doublons de cette colonne?

Ci-apr&#232;s, mon code pour remplissage du combobox

Private Sub UserForm_Activate()
Dim i
i = 1
Form1.ComboBox1.Clear
Do Until Sheets("Feuil1").Range("a" & i).FormulaR1C1 = ""
Form1.ComboBox1.AddItem Sheets("Feuil1").Range("a" & i).FormulaR1C1
i = i + 1
Loop
End Sub
Merci

pinje · Accepted Answer

tri tes donnees dans la colone A de maniere alaphabetique, puis lorsque
tu les charges dans le combobox, verifie que l'item que tu ajoute est
different du precedent..



si tu peux pas trier colone A, alors charge tout dans un tableau, trie
le de maniere alphabetique, puis verifie que l'item que tu ajoute est
different du precedent..



A +

cs_Bruno28 · Answer

Merci &#224; toi PINJE


Imp&#233;cable. Pour info, voici le code:

Private Sub UserForm_Initialize()
   Dim V As Variant
   Dim Data As Collection
   Dim i As Integer

V = Range("a1").CurrentRegion

Set Data = New Collection
For i = 1 To UBound(tablo)
    Data.Add CStr(V(i, 1)), CStr(V(i, 1))
Next i

For i = 1 To Data.Count
    ListBox1.AddItem Data(i)
Next i

Salut
Bruno

cs_Bruno28 · Answer

Modification : C'est ce code qu'il faut mettre

Private Sub UserForm_Initialize()
   Dim V As Variant
   Dim Data As Collection
   Dim i As Integer

V = Range("a1").CurrentRegion

Set Data = New Collection
For i = 1 To UBound(V)
    Data.Add CStr(V(i, 1)), CStr(V(i, 1))
Next i

For i = 1 To Data.Count
    ListBox1.AddItem Data(i)
Next i

J'ai trouv&#233; ce code sur ce site, mais je ne sait plus de qui il est, d&#233;sol&#233;
Salut
Bruno

Excel : ne pas afficher les doublons

3 réponses

Discussions similaires