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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.