Bonjour à tous,

J'essaye de remplir une combobox avec l'outil mondico.

J'ai une plage de cellule allant de F43 à K56. Je cherche à remplir ma combobox avec les valeurs de ces cellules de manière unique.

Par ailleurs je souhaite si possible récupérer cette liste de valeur afin de limiter une plage de cellules aux valeurs récupérer dans ce dictonnaire.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Set mondico3 = CreateObject("scripting.dictionary")
a = F.Range("F43:K56")
For i = LBound(a) To UBound(a)
   If a(i, 1) <> "" Then mondico3(a(i, 1)) = ""
   Next i
    Me.Supplierbox.List = mondico3.keys
    Supplierbox.AddItem "ALL", 0
    Supplierbox.AddItem "", 1
Je n'ai pas de messages d'erreur mais ma combobox n'est pas remplie non plus....


En vous remerciant par avance pour votre aide...