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 :
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
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
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 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
value1 = Dictionary2("test").Items(0)
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.

Merci, bon après-midi,