1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Dim MaColl as New Collection
Dim ItemColl as MaClasse
Dim Table(1 to 3)
'
For i = 1 to 3
'
For j = 1 to UBound(Table)
Table(j) = Str(i) & "," & Str(j)
Next
'
Set ItemColl = New MaClasse
ItemColl.Item = Table
MaColl.Add ItemColl [,Key (s'il y a une clé)]
Set ItemColl = nothing
'
Next
'
' Pour modifier le 2ème élément du 1er item, on peut alors utiliser :
Call MaColl(1).Ecrire("3,2", 2)
'
' ou bien, pour le modifier avec la valeur du 2ème élément du 3ème item :
Call MaColl(1).Ecrire(MaColl(3).Item()(2), 2)
'
' ou encore, pour modifier tout l'item :
MaColl(1).Item = MaColl(3).Item |
Partager