Accesseur de collection dans un module de classe [Résolu]

[in]

Bonjour,

j'ai un piti problème qui doit être assez basique pour des connaisseurs comme vous. Helas, je n'ai pas réussi à trouver de solution. Je m'en remet donc à vos bonnes grâces ...

J'ai un module de classe qui possède entre autres deux membres de type Collection.
Pour les types "basiques" pas de problème pour les accesseurs. Par contre pour ces collection ... je n'arrive pas à compiler.

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
Private lInit_typed_WBS As New Collection

Public Property Let Init_typed_WBS(ByVal liste As Collection) 
    lInit_typed_WBS = liste
End Property

Public Property Get Init_typed_WBS() As Collection
    Init_typed_WBS = lInit_typed_WBS
End Property

En fait sur les deux éléments en gras, j'ai une "erreur de compilation : argument non facultatif"

Pour le Let, je peux feinter en parcourant la collection en paramètre et en ajoutant chaque élément à mom membre. Mais bon je trouve ça pas très cool ...

Est-ce normal docteur ?

[SilkyRoad]

bonjour

Tu dois ajouter l'instruction Set pour faire référence à un objet:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'--- Dans un module de classe nommé Classe1
Option Explicit
 
Private lInit_typed_WBS As New Collection
 
 
Public Property Let Init_typed_WBS(ByVal liste As Collection)
    Set lInit_typed_WBS = liste
End Property
 
 
Public Property Get Init_typed_WBS() As Collection
    Set Init_typed_WBS = lInit_typed_WBS
End Property

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'--- Dans un module standard
Option Explicit
 
Sub Test()
    Dim Cl As Classe1
 
    Set Cl = New Classe1
 
    Cl.Init_typed_WBS.Add "mimi"
 
    MsgBox Cl.Init_typed_WBS.Item(1)
 
    Set Cl = Nothing
End Sub

bonne journée
michel

[in]

Cool,

je pensais bien que c'était rien, mais bon je n'aurais pas trouvé seul.

merci encore

bonne journée également

[Tofalu]

D'ailleurs SilkyRoad ce sera une property Set au lieu de property Let

[SilkyRoad]

OOuuppss...
Merci cher Tofalu ... ;o)