Prob avec scripting dictionary VBA

bjr le forum,

Afin d'éviter les doublons pour remplir une combobox, j'ai mis en place un code avec le dictionnaire.

Seulement sur un fichier test tout fonctionne correctement (Cf fichier joint) et sur mon fichier source cela entraine erreurs sur erreurs (erreur 1004 en premier lieu et ensuite une erreur 450).

Code présent sur fichier source qui pose prob. :

Dim f
Private Sub Userform Initialize()

Dim MonDico As object
Set MonDico=CreateObject("Scripting.Dictionary")
Set f=sheets("Conso")
temp=f.range("AK2:AK6")
For i=1 to Ubound(temp,1)
    MonDico=(temp(i,1))=temp(i,1)
Next i
Me.Combobox1.List=MonDico.items
End Sub

le code étant identique et la référence Microsoft Scripting Runtime est coché sur mon fichier source Merci d'avance à ceux qui se pencheront sur cette bizarerie !!

Fichier test Oublié, le voici... celui-ci fonctionne mais doit viendrait l'erreur sur l'autre fichier ??

Bonjour,

Essaie comme cela :

Dim f
Private Sub Userform_Initialize()
Dim MonDico As Object
    Set MonDico = CreateObject("Scripting.Dictionary")
    Set f = Sheets("Conso")
    temp = f.Range("AK2:AK6")
    For i = 1 To UBound(temp, 1)
        MonDico(temp(i, 1)) = temp(i, 1)
    Next i
    Me.ComboBox1.List = MonDico.items
End Sub

A+

Slt,

Rhhhôoo Vivement les vacances, Comment j'ai put louper cela !???

Cécité concentrationnelle sans doute (a force de se fixer sur une chose, on néglige les détails !!)

Merci beaucoup.

Bonne Journée