Accesseur de collection dans un module de classe

in · 09/08/2007, 09h46

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 :

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

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** · 09/08/2007, 12h32

bonjour

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

Code :

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

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 :

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

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