Collection d'objets dans VBA

Bonjour,
J'essaye de créer une collection d'objets sous VBA.
J'ai une classe clsVal qui contient comme membres une date et une valeur et je veux créer une collection d'objets de type clsval.
la collection standard de VB me sort en erreur.

Code:
Definition de la classe clsVal

Code:

---

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

Private mValDate As Date Private mVal As Double   Property Let Val(value As Double) mVal = value End Property Property Get Val() As Double Val = mVal End Property   Property Let Valdate(value As Date) mValDate = value End Property Property Get Valdate() As Date Valdate = mValDate End Property

---

Utilisation:

Code:

---

1 2 3 4 5

Set c_val = New clsVal c_val.Valdate = dateRange.value c_val.Val = valrange.value Call d_collection.Add(c_val, c_val.Valdate())

---

La ligne en rouge ne passe pas.
merci de votre aide.

Et si tu supprimes le Call ?

Code:

---

d_collection.Add c_val, c_val.Valdate()

---

Tu ne devrais pas avoir quelque chose dans c_val.Valdate() ?

Citation:

---

Envoyé par ouskel'n'or

Et si tu supprimes le Call ?

Code:

---

d_collection.Add c_val, c_val.Valdate()

---

Tu ne devrais pas avoir quelque chose dans c_val.Valdate() ?

---

L'erreur est un "type mismatch" sur l'objet c_val
c_val.ValDate contient bien une valeur.

la clé que je passais n'etait pas de type string comme requis.