Discussion :

[olra72]

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

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
 
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

[Jean-Philippe André]

Salut

Passe par un Array intermédiaire

Code :

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

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

Mets a jour les données dans l'Array

Code :

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

vArray(0) = "aaa"

Et mets a jour ton dico

Code :

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

hAff("k_arr") = vArray

[Invité]

Bonjour,

Code :

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

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)

[olra72]

Ç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

[patricktoulon]

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

[Invité]

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

[olra72]

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