Dictionnaires imbriqués

Bonjour le forum!

Je viens vers vous pour une question tout simple, est il possible de stocker un dictionnaire (et non sa/ses valeur(s)) dans un autre dictionnaire?

Ex:

DicoA(1) = "A"

DicoA(2) = "B"

DicoB = DicoA

Lors du changement de valeur dans DicoA(x), je voudrai que DicoB en bénéficie aussi, une idée sur le sujet?

Sq'

Bonjour,

Exemple

Sub DictionnaireDictionnaire()
  'Microsoft scripting runtime est coché
  Dim d1 As New Scripting.Dictionary
  Dim d2 As New Scripting.Dictionary
  Dim dd As New Scripting.Dictionary ' dictionnaire de dictionnaire
  Dim Ptr As New Scripting.Dictionary

  d1.Add "aa", 11: d1.Add "bb", 22
  d2.Add "cc", 33: d2.Add "dd", 44

  Set dd("dico1") = d1: Set dd("dico2") = d2

  Set Ptr = dd("dico1")
  MsgBox Ptr.Items(1): MsgBox Ptr("bb") ' affiche 22
  Set Ptr = dd("dico2")
  MsgBox Ptr.Items(1): MsgBox Ptr("dd") ' affiche 44
End Sub

Ceuzin

Hello Ceuzin!

Merci pour ta réponse, elle vient de me permettre de comprendre la différence entre l'affectation et le set... incroyable ce que l'on peut faire avec les dicos Oo'.

Un grand merci à toi!

Sq'