Parcours d'une collection Hashtable en VBA
bonjour,
En VBA Excel 2003, je cherche à utiliser la classe System.Collections.Hashtable (qui permettrait de manipuler facilement une table clé unique / valeur).
Je n'ai pas trouvé la dll qui contiendrait cet objet mais MSDN documente les méthodes et propriétés disponibles.
Je crée l'objet, j'ajoute des entrées ... mais je n'arrive pas à parcourir la collection par For Each / Next : j'obtiens une erreur '438' Propriété ou méthode non gérée par cet objet !
Code:
1
2
3
4
5
6
7
8
9
10
11
| Sub TestHashtable()
Dim objMyCollection As Object
Dim objItem As Object
Set objMyCollection = CreateObject("System.Collections.Hashtable")
objMyCollection.Add "cle1", "valeur associée à cle1"
objMyCollection.Add 456, "valeur associée à 456"
For Each objItem In objMyCollection
MsgBox "clé " & objItem.Key
Next
Set objMyCollection = Nothing
End Sub |
merci de votre aide
