Array dans un dictionnaire

Qui peut m'expliquer pourquoi je ne peux pas modifier une Array enregistrée dans un dictionnaire ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub ExempleArray_V01() Dim hAff As Scripting.Dictionary: Set hAff = New Scripting.Dictionary   hAff.Item("k_val") = "A" hAff.Item("k_arr") = Array("a", "b", "c")   Debug.Print hAff("k_val") ' Renvoie A hAff("k_val") = "AAA" Debug.Print hAff("k_val") ' Renvoie AAA   Debug.Print hAff("k_arr")(0) ' Renvoie a hAff("k_arr")(0) = "aaa" ' Sans effet ?? Debug.Print hAff("k_arr")(0) ' Renvoie toujours a   End Sub

---

Amicalement,
Olivier

Salut

Passe par un Array intermédiaire

Code:

---

1 2 3

Dim vArray as Variant   vArray = hAff.Item("k_arr")

---

Mets a jour les données dans l'Array

Code:

---

vArray(0) = "aaa"

---

Et mets a jour ton dico

Code:

---

hAff("k_arr") = vArray

---

Bonjour,

Code:

---

1 2	Dim hAff As Object: Set hAff = CreateObject("Scripting.Dictionary") hAff.Item("k_arr") = Array("a", "b", "c"): Debug.Print hAff("k_arr")(0): D = hAff("k_arr"): D(0) = "eee": hAff("k_arr") = D: Debug.Print hAff("k_arr")(0)

---

Ça marche ! Super ! Merci ! ... et on peut utiliser des Arrays d'Arrays d'Arrays sans avoir à utiliser une variable intermédiaire à chaque niveau. Il en suffit d'une pour entrer/sortir du dictionnaire et après, ça roule !

C'est un peu étrange comme contrainte mais, avec MicroSoft, on a l'habitude ;-)

Je sens que je vais beaucoup me servir de tout ça ...

Amicalement,
Olivier

il y a les arrays a X dimensions aussi
des fois ca simplifie le code

Tu augmentera les performances en t'intéressent aux module de classe!

D'accord ! On s'y met dès demain :D