Combobox sans doublon

Bonjour,

j'ai trouvé ce code pour créer une liste sans doublon, mais je n'arrive pas à alimenter une combobox avec..:

Code:

---

1 2 3 4

Set mondico = CreateObject("Scripting.Dictionary") For Each c In Range("a2", [a65000].End(xlUp)) mondico(c.Value) = "" Next c

---

j'ai essayé combobox.additem mondico mais cela ne fonctionne pas...

Salut,

une recherche prenant 2 secondes donne des pistes serieuses :)
http://www.developpez.net/forums/d46...obox-doublons/

Bonjour
Réfléchis un peu.
La lecture de la rubrique additem de ton aide vba apprend que cette méthode sert à ajouter un article, pas une liste d'articles.
C'est donc à la propriété List de ta combobox que tu dois donner la valeur des clés (Keys) de ton objet mondico.
Voilà. J'attends que tu réagisses et corriges d'abord seul sur cette base simplissime.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() Set f = Sheets("BD") Set mondico = CreateObject("Scripting.Dictionary") a = f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité For i = LBound(a) To UBound(a) If a(i, 1) <> "" Then mondico(a(i, 1)) = "" Next i Me.ComboBox1.List = Mondico.keys End Sub

---

Boisgontier

Bonjour,


Merci à vous, et mes excuses, en effet je n'ai pas cherché longtemps...mais ai finalement réussi.

Citation:

---

en effet je n'ai pas cherché longtemps

---

tu veux dire "réfléchi" ...