Discussion :

[Crimsim]

Bonjour,

Je fais encore appel à vos connaissances. Merci d'avance.

Je souhaite savoir s'il est possible d'ajouter à un dictionnaire (1) un dictionnaire (2). Mais une fois le dictionnaire (2) ajouté toute modification de celui-ci (clé/valeur) n’entraîne pas de modification dans celui ajouté au dictionnaire (1).

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 dico()
 
Dim dico1 As New Scripting.Dictionary
Dim dico2 As New Scripting.Dictionary
 
dico2.Add 1, 25
dico2.Add 2, 26
dico2.Add 3, 27
 
MsgBox dico2(2) 'affiche 26
 
dico1.Add 1, dico2
 
MsgBox dico1(1)(2) 'affiche 26
 
dico2.RemoveAll
 
MsgBox dico1(1)(2) 'affiche rien mais je souhaite qu'il continue à afficher 26
 
End Sub

J'espère avoir été assez clair et que mon idée n'est pas trop farfelue.

Bonne journée,

[riaolle]

Bonjour,
Je ne suis pas très à l'aise avec les dictionnaires, mais ne pourrais-tu pas faire une bouclé for sur l'ensemble des éléments du dictionnaire 2 et les ajouter au dictionnaire 1?

Ou tu fais une copie de ton dictionnaire (dico3) avant de l'ajouter dans dico1. Mais j'espère que tu n'as pas plus de 2 dicos à ce moment-là

[Crimsim]

@Riaolle,

Pour ta première solution, si j'ajoute chaque élément du dictionnaire 2 à mon dictionnaire 1 cela va créer autant de clé que d’élément présent dans mon dictionnaire 2.

Pour ta deuxième solution, j'y avais pensé mais je me retrouve avec la même problématique.

Code :

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

set dico3 = dico2 'fait une copie du dico2

Le fait de modifier le dico2 modifie le dico3

@dysorthographie une nouvelle fois merci pour ton aide !

[Invité]

Bonjour,
si dico2 reste lié à dico1 alors dico2.RemoveAll entraîne le reset de dico1(1).dico2! il faut couper le lien Nothing

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
21
22
23
24
25
26
27
28
29
SSub dico()
Dim dico1 As Object, dico2 As Object ' Scripting.Dictionary
Set dico1 = CreateObject("Scripting.Dictionary"): Set dico2 = CreateObject("Scripting.Dictionary")
dico2.Add 1, 25
dico2.Add 2, 26
dico2.Add 3, 27
MsgBox dico2(2) 'affiche 26
dico1.Add 1, dico2
MsgBox dico1(1)(2) 'affiche 26
 
 
 Set dico2 = Nothing
 
MsgBox dico1(1)(2) 'affiche rien mais je souhaite qu'il continue à afficher 26
 Set dico2 = CreateObject("Scripting.Dictionary")
 dico2.Add 1, 55
dico2.Add 2, 56
dico2.Add 3, 57
dico1.Add 2, dico2
 
 
Set dico2 = Nothing
 
 
MsgBox dico1(2)(2) 'affiche 56
dico1.Add 3, CreateObject("Scripting.Dictionary")
dico1(3)(1) = 100: dico1(3)(2) = 200: dico1(3)(3) = 300
MsgBox dico1(3)(2) 'affiche 200
End Sub

[Invité]

Code :

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

1
2
3
dico1.Add 3, CreateObject("Scripting.Dictionary")
dico1(3)(1) = 100: dico1(3)(2) = 200: dico1(3)(3) = 300
 MsgBox dico1(3)(2)'affiche 200