[VBA] comment modifier les items des collections

[tangjuncn]

moi, j'arrrive pas
qd j'ai

Code :

collect as new collection

je remplis la collection

apres qd je fais

Code :

collect.items(1)= x

ou set collect.items(1)=x
ça ne marche jamais,

il demande un object.
qn le sait?

[random]

les collections ne permettent pas l'affectation à un élément existant
mais on peut procéder ainsi

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub collect()
Dim macoll As New Collection
Dim x As Variant
x = "hello"
macoll.Add Item:=x, key:="1"
MsgBox (macoll(1))
x = macoll("1") & " world"
macoll.Remove "1"
macoll.Add Item:=x, key:="1"
MsgBox (macoll("1"))
End Sub