constructeur pour module de classe

[hector2]

Bonjour (encore moi!),
je cherche à faire un constructeur pour un module de classe, malheureusement ça bloque (toujours à cause de tableaux!désolé j'ai un peu de mal avec ce truc! )
je sais que les constructeurs n'existent pas par défaut en vb, je veux juste créer une méthode qui initialise un objet.
voilà mon module de classe (doté pour simplifier ici juste d'un tableau à 2 entrées):

Code :

1
2
3
4
5
6
7
8
Private CC() As Double
Public Property Let C(ByRef cb() As Double)
        CC = cb
End Property
 
Public Property Get C() As Double()
            C = CC
End Property

voici ma méthode constructeur:

Code :

1
2
3
4
5
Public Sub linearconstraint( C() As Double)
 
        Me.C = C
 
End Sub

et voilà comment j'instancie mon objet:

Code :

1
2
3
Dim clin As linearconstraint
Set clin = New linearconstraint
clin.linearconstraint CM

(CM est un tableau de double normal)
et bien vous me croirez si vous voudrez , mais ça et ferme excel et VBE direct.

Merci!

[philben]

re bonjour,

le nom de la classe correspond au nom du module de classe...

Le constructeur est obligatoirement :

Code :

1
2
3
4
 
Private Sub class_Initialize()
...
End Sub

Le destructeur :

Code :

1
2
3
4
 
Private Sub class_Terminate()
...
End Sub

un excellent tuto pour tout savoir sur les classes VBA :
http://sinarf.developpez.com/access/vbaclass/

Philippe

[hector2]

merci pour ta réponse;
le lien est effectivement très clair...
Mais ne répond pas à mon problème. Oublions l'aspect constructeur, je voudrais juste comprendre pourquoi cette méthode:

Code :

1
2
3
4
Public Sub lc( b as double, C() As Double)
        Me.b =  b
        Me.C =  C
End Sub

où b et C sont respectivement des propriétés de ma classe, double et double(), plante:
je précise que l'instruction

Code :

Me.b =  b

passe, c'est

Code :

Me.C =  C

qui fait planter excel.
par contre, un appel direct:
clin.C marche (clin est une instance de ma classe).

[Tofalu]

Essaye voir ainsi :

Code :

1
2
3
4
5
6
7
8
Private CC() As Double
Public Property Let C(ByRef cb)
        CC = cb
End Property
 
Public Property Get C() 
            C = CC
End Property

[tfrancais]

Comme c'est un peu objet, quel est le résultat du set ci-dessous dans le let ?

Code :

Set C = cc

[ilank]

Bonjour,
une différence évidente, toutes les procédures qui plantent attendent un argument tableau passé par valeur et par référence; ce qui n'est pas le cas de la property Let.