Dictionnaire add en valeur VBA

Version imprimable

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:

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,

04/04/2017, 11h47
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à ;)

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

Code:

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

04/04/2017, 12h23
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:

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 !

Code:

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