plusieurs collections

[maruhoga]

Bonjour,

voici le code exemple de mon probleme

dans le module de class :

Public MapName As String
Public SysName As String
Public ToDo As Integer
Public SysMapName As String



dans le module :

Public Sub test()

Dim MyStat As New Collection
Dim MySystems As New Collection
Dim Inst As New Class1

Inst.MapName = "MAP1"
Inst.SysName = "SYS1"
Inst.SysMapName = Inst.MapName & "-" & Inst.SysName

MySystems.Add Item:=Inst, key:=CStr(Inst.SysMapName)
MyStat.Add Item:=Inst, key:=CStr(Inst.MapName)

MySystems.Item("MAP1-SYS1").ToDo = 10

MyStat.Item("MAP1").ToDo = 20




End Sub



Quelqu'un pourrait il me dire pourquoi a la fin de l'execution de ce code,
il y a 20 dans MySystems.Item("MAP1-SYS1").ToDo
et non pas 10 ???