Discussion :

[nawel]

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.

[ouskel'n'or]

Et si tu supprimes le Call ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

d_collection.Add c_val, c_val.Valdate()

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

[nawel]

Et si tu supprimes le Call ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[nawel]

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