XL 2010 Objet dictionnary

[Goufra]

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

 

[klin89]

Bonsoir à tous, 🙂

Goufra a dit :

je charge le dico y compris les doublons

Sauf qu'il n'y a pas de doublons en colonne 1 😵
Au final, ça change tout 😎

klin89

 

[Goufra]

Merci Nicole c'est clair net et précis

Klin bonsoir
Pour ce qui du doublon je me suis planté de fichier à envoyer

Je recherchais avant tout la réponse que Nicole m'a apportée
Bonsoir et bonne nuit
JC G