Instancier une classe comprenant une autre classe [Résolu]

[jymmy]

Bonjour,

Pour les besoins de mon application,
j'ai créé un module de classe "outil" :
------------------------

Code :

1
2
3
4
5
Public fabricant As String
Public reference As String
Public quantite As Integer
Public prix As String
Public remise As String

------------------------

et j'ai creer un deuxieme module "Commande" qui se compose d'un outil
et d'autres informations

------------------------------

Code :

1
2
3
4
5
Public Mon_outil As outil
Public ladate As String
Public qte_commande As Integer
Public delai As String
Public restant_commande As Integer

---------------------------------

Dans monb programme VBA, j'ai creer un objet de type commande et essayé de remplir ces variables

Code :

1
2
3
Dim Ma_Commande As Commande
Set Ma_Commande = New Commande
Ma_Commande.Mon_outil.fabricant = myCell.Offset(0, 4).Value

Mais à ce point j'obtiens l'erreur 91 : "variable objet ou bloc with non definie"

Est-ce que le probleme vient de la syntaxe ou d'une erreur de manipulation des classes ? Et si c'est le cas, comment puis-je reparer mon erreur ?

Merci !

[bbil]

manque peu-être la création de ton objet "Mon_outil"...
modifie la ligne de déclaration ..: ( rajout de New)

Code :

1
2
 
Public Mon_outil As New Outil

[jymmy]

Ah oui en effet bien vu.
Merci beaucoup pour ta réponse !