Discussion :

[Crimsim]

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,

[Invité]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
value = Dictionary(0)
value1 = Dictionary2("test")(0)
Value2 = Dictionary2("test")(value)

[Ben_L]

Bonjour à vous,

Ci-dessous une petite modification de votre code qui permet de le rendre fonctionnel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub testDJZIFE()
    Dim Dict As New Scripting.Dictionary, Dict2 As New Scripting.Dictionary, Tmp As Scripting.Dictionary
    Dict.Add 10, 24
    Dict.Add 20, 36
    Set Dict2("test") = Dict
    Set Tmp = Dict2("test")
    MsgBox Dict.Items(0)
    MsgBox Tmp.Items(0)
End Sub

Pour une raison que j'ignore, Excel semble ne pas être capable de reconnaître que l'objet qui se trouve dans le 2ème dictionnaire est lui-même un dictionnaire.
Le problème est intéressant. Je regarde si je trouve quelque chose sur le sujet.

Cordialement

[Ben_L]

Bonjour dysorthographie,

Je n'avais pas vu votre message lorsque je me suis intéressé au sujet.

Malheureusement, je n'arrive pas à rendre fonctionnel le code que vous fournissez.
Certes, il n'y a plus d'erreur. Mais lorsque j'imprime les valeurs obtenues, il y a comme un problème (j'obtiens des chaînes vides).

M'y suis-je mal pris ?

[Crimsim]

Bonjour Ben_L,

Merci pour cette solution !

@dysorthographie Merci mais cette solution ne répondait pas à ma problématique.