Bonjour,
Je vous remercie encore une fois d'avance pour l'aide que vous allez m'apporter.
Voici le code sur lequel je rencontre un problème :
Je crée deux dictionnaires. Dans celui qui se nomme dictionary, j'associe des clés à des valeurs. Pour le dictionary2, j'associe une clé au dictionary
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Sub Macro() Dim Dictionary As Scripting.Dictionary, Dictionary2 As Scripting.Dictionary Dim value As Integer, value1 As Integer Set Dictionary = New Dictionary Set Dictionary2 = New Dictionary Dictionary.Add 45, 98 Dictionary.Add 96, 32 Dictionary.Add 25, 45 Dictionary.Add 10, 12 Dictionary.Add 15, 18 Dictionary2.Add "test", Dictionary value = Dictionary.Items(0) value1 = Dictionary2("test").Items(0) End Sub
Quand je souhaite obtenir l'items 0 du dictionary, value prend la valeur 98. Mais je souhaite pouvoir obtenir cette valeur en partant du dictionary2 et en utilisant le .items
J'ai pensé au code ci dessous :
mais j'ai un message d'erreur "La procédure property let n'est pas définie et la procédure property get n'a pas renvoyé d'objet. Je suppose que ma façon de m'y prendre n'est pas la bonne. Pouvez-vous m'indiquer une piste de réflexion pour résoudre mon problème.
Code : Sélectionner tout - Visualiser dans une fenêtre à part value1 = Dictionary2("test").Items(0)
Merci, bon après-midi,
Partager