Itérer sur les dictionnaires VBA?

Question

J'utilise la classe Dictionary dans la bibliothèque MS Runtime Scripting pour stocker où les étiquettes vont aller pour un modèle de rapport. Existe-t-il un moyen d'itérer sur toutes les paires de valeurs clés dans ce dictionnaire comme en Python? Je veux juste utiliser la clé comme numéro de ligne (tout va dans la colonne A) et la valeur sera l'en-tête de l'étiquette.

Quelque chose comme:

For Each key in dict
    Range("A" & key).Value = dict(key)
Next key

Answer 1

Essayer:

For Each varKey In oDic.Keys()
    Range("A" & varKey).Value = oDic(varKey)
Next

Notez que l'itérateur de clé doit être déclaré comme Variant.