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