Combobox sans doublon

**logue_in** · 04/10/2016, 17h10

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

**Jean-Philippe André** · 04/10/2016, 17h28

Salut,

une recherche prenant 2 secondes donne des pistes serieuses

http://www.developpez.net/forums/d46...obox-doublons/

**unparia** · 04/10/2016, 17h36

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.

**boisgontierjacques** · 04/10/2016, 17h59

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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