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

[tototiti2008]

Bonjour à tous,

Au temps pour moi..
Je crois qu'en effet une methode Duplicate, ou quelque chose comme ça, va s'imposer

[martinmacfly]

Re bonjour à tous,

La solution est vite trouvée, voilà ce que j'ai fait (cAnalysisCase est le nom de ma classe) :

Code :

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

1
2
3
4
Sub Duplicate(AnaCaseToCopyFrom As cAnalysisCase, AnaCaseToCopyTo As cAnalysisCase)
    AnaCaseToCopyTo.CaseIndex = AnaCaseToCopyFrom.CaseIndex
    '''Copie de tous les autres attributs
End Sub

Je ne suis quand même pas entièrement satisfait par cette solution. En effet, pour appeler cette procédure et copier MonObjet1 dans MonObjet2, je dois entrer :

Code :

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

MonObjet1.Duplicate (MonObjet1, MonObjet2)

Je dois donc appeler une fois un objet, uniquement pour lui dire d'aller me chercher la méthode définie dedans. Or, j'aimerais plutôt arriver à une syntaxe du type :

Code :

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

MonObjet1.Duplicate(MonObjet2)

Ayant fait du Python dans ma jeunesse, je me souviens qu'on pouvait définir des méthodes en entrant self comme variable (self correspondant à l'objet à partir duquel on appelle la procédure, en l'occurrence en reprenant mon exemple au-dessus, MonObjet1), et ensuite elle s'écrirait quelque chose du type (je suis un peu rouillé en Python donc ce n'est pas forcément la syntaxe exacte) (dans le module de classe) :

Code :

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

1
2
3
4
Sub Duplicate(self As cAnalysisCase, AnaCaseToCopyTo As cAnalysisCase)
    self.CaseIndex = AnaCaseToCopyFrom.CaseIndex
    '''Copie de tous les autres attributs
End Sub

et elle s'appellerait avec la syntaxe que je veux (cf ci-dessus). Quelqu'un aurait-il une idée de comment implémenter cette syntaxe ?

Merci !


EDIT : En fait, la façon correcte d'appeler ma procédure est :

Code :

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

MonObjet1.Duplicate AnaCaseToCopyFrom:=MonObjet1, AnaCaseToCopyTo:=MonObjet2

Quelqu'un pourrait-il également me dire pourquoi la formulation que j'ai mise plus haut ne marche pas ? Merci !