XL 2010 Objet dictionnary

Goufra

XLDnaute Occasionnel
Bonjour,

Je cherche à charger un dictionnaire à partir d’un tableau.
Mon code ne fonctionne pas


Sub chargtDictionnaire2()
Set Mondico = Nothing
t2 = Range("tableau2")

For i = 1 To UBound(t2, 1) ' je charge le dico y compris les doublons
Clé = t2(i, 1)
valeur = Array(t2(i, 2), t2(i, 3))
Mondico.Add Clé, valeur
Next i
' je vérifie
For Each TestValeurDico In Mondico.Keys
MsgBox "clé " & TestValeurDico & " valeur " & Mondico(TestValeurDico) 'affiche la valeur de la clé
Stop
Next TestValeurDico

End Sub


Je vous remercie par avance pour votre aide
Bonne fin de journée
Fichier en annexe


Goufra
 

Pièces jointes

  • goufradico.xlsm
    30.5 KB · Affichages: 27

Discussions similaires

Réponses
12
Affichages
225
Réponses
7
Affichages
292

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088