Module de Classe VBA

[sigismond]

Bonjour à tous

Je cherche à remplacer dans un module de classe
- des propriétés portant sur des variables distinctes
- par des propriétés sur un tableau (statique).


Au lieu de : (qui marche)

Global Liste As cEnum
Global Listarray As cEnumArray

Sub tst()
    Set Liste = New cEnum
    Liste.Prop1 = 1
    Liste.Prop2 = 2
    Liste.Prop3 = 3
    Liste.Prop4 = 4
    Liste.Prop5 = 5
    Liste.Prop6 = 6
    
    MsgBox (Liste.Prop1)
    MsgBox (Liste.Prop2)
    MsgBox (Liste.Prop3)
    MsgBox (Liste.Prop4)
    MsgBox (Liste.Prop5)
    MsgBox (Liste.Prop6)
    

End Sub

J'aimerais pouvoir écrire : (ne marche pas)

Sub tstArray()
Dim i As Integer
    Set Listarray = New cEnumArray
    For i = 1 To 6
        Listarray.Prop(i) = i
    Next i
    '
    '
    '
    For i = 1 To 6
        MsgBox (Listarray.Prop(i))
    Next i
End Sub

avec 6 propriétés l'intérêt est discutable, avec 150 il n'y a pas photo !

Je n'arrive pas à rédiger les Property Get et les Property Let

Ci-joint un essai.

Merci à celui ou celle qui donnera le bon coup de tournevis.

Sigismond