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,