Discussion :

[tedori]

Bonjour,
je souhaiterais savoir s'il est possible, en vba excel, de définir une classe comme propriété d'une autre classe.
Par exemple, j'ai créé un module de classe intitulé matériau, comprenant des propriétés telles qu'un module d'Young, etc... Ensuite j'ai créé un module de classe intitulé "plaque", auquel j'ai donné des propriétés telles que l'épaisseur,..., ainsi qu'une propriété "matériau". Malheureusement cette imbrication ne fonctionne pas.
La question est donc : une telle imbrication est-elle réalisable en vba excel (et par conséquent je doit revoir mon programme), ou dois-je simplement oublier cette idée?

[Jean-Philippe André]

Salut,
plein d'excellents cours au sujet des modules de classe :

http://sinarf.developpez.com/access/vbaclass/

http://fauconnier.developpez.com/art...neral/classes/


sinon, comment doit-on évaluer le "ne fonctionne pas" dans ton post stp ?

[tedori]

J'ai en effet commencé par regarder ces mêmes tutoriaux, seulement ils ne traitent pas le cas que j'essaye de résoudre.
Pour être plus précis, voilà le test que je fais :

Code :

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
 
Sub test()
Dim mat1 As New metal, tole1 As New Plaque
 
  With mat1
    .E = 74000
    .Sigr = 450
    .Sige = 385
    .mu = 0.33
    .Epsr = 0.05
    .Epse = 0.002
    .Rho = 2780
  End With
 
  With tole1
    .a = 450
    .b = 77
    .e = 1.8
    .K = 0.9
    .mat = mat1 '!!!! NE FONCTIONNE PAS
  End With

L'erreur qu'excel me retourne (lorsqu'il arrive à la propriété .mat) est la suivante :
Erreur d'exécution'91' :
Variable objet ou variable de bloc With non définie

Concrètement, il agit comme si cette propriété n'était pas définie, alors qu'elle l'a été au même titre, et de la même façon, que les autres propriétés.

[Qwazerty]

Salut
Je suis pas trop aguerrie dans le domaine objet de classe sur vba mais 2 choses
-Il faudrait voir comment tu as déclaré mat dans ta classe taule.

-Il faudrait peut être mettre

Code :

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

Set .mat = mat1

Mais je n'ai aucune certitude sur ce point

++
Qwaz

[tedori]

Malheureusement le set n'y change rien. Voici un détail des modules de classe :

Le module de classe metal :

Code :

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
 
Private pE As Double
Private pmu As Double
Private pep As String
Private pSigr As Double
Private pSige As Double
Private pEpsr As Double
Private pEpse As Double
Private pRho As Double
 
Property Get E() As Double 'Module d'Young
' Propriété en lecture
E = pe
End Property
Property Let E(E As Double) 'Module d'Young
' Propriété en écriture
pe = E
End Property
 
'....

Le module plaque :

Code :

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
24
25
26
27
28
29
30
31
32
33
34
35
 
Private pe As Double
Private pa As Double
Private pb As Double
Private pK As Double
Private pmat As metal
 
Property Get a() As Double
' Propriété en lecture
a = pa
End Property
Property Let a(a As Double)
' Propriété en écriture
pa = a
End Property
 
'...
 
Property Get mat() As metal
' Propriété en lecture
mat = pmat
End Property
Property Let mat(mat As metal)
' Propriété en écriture
pmat=mat
' J'ai aussi essayé :
'pmat.E = mat.E
'pmat.mu = mat.mu
'pmat.nom = mat.nom
'pmat.Sigr = mat.Sigr
'pmat.Sige = mat.Sige
'pmat.Epsr = mat.Epsr
'pmat.Epse = mat.Epse
'pmat.Rho = mat.Rho
End Property

[Qwazerty]

Salut
Il faudrait peut être plutôt que tu es une function assigne dans ta classe Plaque.
Cette fonction serait appelé ainsi

Code :

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

.Mat.Assigne(Mat1)

Dans cette fonction tu renseignes toutes les valeurs contenues dans Mat1 dans la structure de ta classe Metal dans ta classe Plaque.
[Edit]G fait ce massage entre temps, je regarde ton code[/Edit]
A++
Qwaz

[Qwazerty]

Salut deja je détecte une erreur, nul part tu ne déclares ton objet pMat (New metal) il ne pourra donc pas être utilisé.

De plus ici aussi il me semble que le Set serait de rigueur

Code :

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

1
2
3
4
Property Let mat(mat As metal)
' Propriété en écriture
pmat=mat
' J'ai aussi essayé

[Jean-Philippe André]

ok,
cette propriété est-elle bien de portée Public ?

chez moi, ceci fonctionne :

Code :

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

1
2
3
4
'Classe cJP
Public a As String
Public b As String
Public c As Double

Code :

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

1
2
'Classe cJP2
Public test As New cJP

Code :

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

1
2
3
4
5
6
7
8
'module principal
Option Compare Database
Option Explicit
 
Sub piou()
Dim x As New cJP2
x.test.a = "piou"
End Sub