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 : Sélectionner tout - Visualiser dans une fenêtre à part
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