Discussion :

[martinmacfly]

Bonjour le forum,

Je me suis fabriqué une classe personnalisée dans un module de classes, et j'aurais besoin de lui donner des méthodes. Je n'ai trouvé nulle part comment faire ni dans l'aide de VBA, ni sur ce forum. Quelqu'un saurait-il m'expliquer comment :

• Créer les méthodes propres à une classe ?
• Définir les méthodes "classiques" (comme l'affectation, la comparaison, le print, etc.) pour cette classe ?

Merci d'avance !

PS : et un grand merci à Pierre Fauconnier pour son tutoriel "Création et utilisation de classes personnalisées en VB 6.0 et VBA". Vivement la partie 2 !

[pgz]

Bonjour.

Pour creer des methodes, tu crees des procedures dans le module de classe, des fonctions si la methode doit retourner un resultat.
Par contre, si j'ai compris ta question sur les methodes "classiques", je ne crois pas qu'il soit possible de modifier un operateur ou une fonction deja existante.

Pleinement d'accord avec toi pour :

Vivement la partie 2 !

Cordialement,

PGZ

[martinmacfly]

Merci pgz !

Et au temps pour moi, j'ai effectivement trouvé ma réponse dans Office et les modules de classes pour les méthodes.

Ce que je voulais dire par "définir les méthodes classiques", c'était en fait savoir comment faire de la surcharge de méthodes classiques, i.e. comment faire par exemple pour dire MonObjet2 = MonObjet1, en définissant dans la classe la méthode surchargée "=", qui copierait en fait toutes les propriétés une par une. Là encore, j'ai trouvé ma réponse sur Access : Modules de classes : il semble que VBA ne gère pas la surcharge de méthodes.

La question qui reste donc est : y a-t-il un moyen de de copier un objet dans un autre (de faire une affectation en fait), autre que de créer par exemple une méthode Affecter qu'on écrirait MonObjet2 = MonObjet1.Affecter ?

[tototiti2008]

Bonjour martinmacfly, Bonjour pgz,

un

Code :

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

Set MonObjet2 = MonObjet1

ne fonctionne pas ?

[martinmacfly]

Bonjour tototiti,

Set marche très bien, mais le problème de Set, c'est qu'il ne crée pas une copie de mon objet, il fabrique seulement une nouvelle référence vers mon objet. Du coup, en faisant :

Code :

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

Set MonObjet2 = MonObjet1

... si je modifie ensuite MonObjet2, MonObjet1 sera aussi modifié, ce que je veux justement éviter...

[pgz]

Re,

A mon avis tu dois creer une methode copy pour ce type d'objet. Je ne crois pas qu'il y ai moyen d'y couper...

Cordialement,

PGZ