bonjour
j'ai créé une classe de classe pour voir comment ça tournait.

J'ai voulu verrouiller en ecriture donc j'ai mis des property get pour acceder a mes sous classe. Seulement avec cette méthode je n'arrive pas a atteindre les methodes et propriétés présentes dans mes sous classes. Comment puis je faire?
je vais mettre le code ce sera peut être plus parlant :
Code Code de la Classe qui contient des sous classes : 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
18
19
20
21
22
23
dim cldCadreSup, cldCadre, cldMaitrise, cldEmploye, cldOuvrier As Demographie
Dim dtaux(5), dChargement(5) As Double
'Dim taux(5) As Double
Property Get CadreSup()
    CadreSup = cldCadreSup
End Property
 
Private Sub class_initialize()
 
Set cldCadreSup = New Demographie
Set cldCadre = New Demographie
Set cldMaitrise = New Demographie
Set cldEmploye = New Demographie
Set cldOuvrier = New Demographie
 
cldCadreSup.InitDemo (11)
cldCadre.InitDemo (12)
cldMaitrise.InitDemo (13)
cldEmploye.InitDemo (14)
cldOuvrier.InitDemo (15)
 
 
End Sub
mais comme je l'ai programmé, je n'ai pas réussi a atteindre l'effectif qui été dans ma cldCadeSup, a cause du get. comment puis je faire pour contourner ce problème, mis à part ecrire des get pour chaque possibilité?