Discussion :

[Pierre Fauconnier]

Bonjour

Vos commentaires sur le tutoriel Classses personnalisées, modules de classe en VBA et VB nous intéressent.

Critiques (constructives), remarques, proposisitions d'ajout ou d'amélioration, coquilles ()... Tout est bienvenu dans l'esprit d'entraide de DVP.

A vos plumes...

[Invité]

Bonjour

J'ai trouvé ce tuto excellent, c'est une bonne approche sur les classes que je commence à comprendre

Philippe

[philben]

bonjour,

EXCELLENT, a été mon livre de chevet.

Trois petites remarques que tu jugeras constructives, j'espère... :

1. Tu n'utilises pas ByVal/ByRef pour les arguments, personnellement j'aime bien les utiliser, c'est comme l'intégrité référentiel ça évite des erreurs et surtout on profite avec byval du cast implicite.
2. Je fais parfois des entorses à la règle qu'une classe ne doit pas gérer les erreurs en interne... Sur le principe je suis ok mais il existe des exceptions en particuliers des erreurs sans conséquences pour l'appelant ou des erreurs plus facilement gérables par la classe sans interventions extérieure ou dans le cas d'un partage des responsablités entre la classe et le code.
3. Sur une ou deux copie d'écran, j'ai remarqué que tu ne libérais par ta classe explicitement en fin de fonction. J'ai pris l'habitude de le faire systématiquement mais c'est peut-être du superflu ?

Il manque seulement les parties 2 et 3 pour que ton oeuvre deviennent une référence .

Encore bravo,

Philippe

[masterx_fr]

Bonjour,
j'ai trouvé votre tutoriel remarquable. C'est bien simple : votre travail a révolutionné ma manière de penser le mien !
Par ailleurs, je tiens à souligner que les guides sur les modules de classe VB et VBA sont plutôt rares. J'ai cherché quelques informations complémentaires sur la toile, il n'y a pas (plus ?) grand chose. Même en anglais.
J'attends avec impatience les deux parties suivantes.
Encore Bravo et Merci.

[Pierre Fauconnier]

Salut Philippe

Désolé de répondre tardivement, mais certaines priorités sont plus prioritaires que d'autres...

...
Trois petites remarques que tu jugeras constructives, j'espère... :...

1. Tu as raison. Le code est plus propre en notant explicitement le type du passage. Je vais corriger cela. Heu... C'est quoi, l'intégrité référentielle?

2. L'exception confirme la règle... Je pense que le principe est sage. Cela étant, il vaut surtout pour des classes utilisées par d'autres (cas d'une DLL COM en VB6, par exemple), mais s'applique évidemment moins pour des codes VBA dans lesquels les classes et le code qui les utilise se trouvent dans le même projet.

3. Tu as (encore ) raison. Dans le cadre du tuto, je n'ai pas été assez rigoureux avec mon code, mais il faut libérer les ressources en repassant les variables objet à nothing.

Merci pour ta participation. Je vais me mettre aux parties 2 et 3, histoire de t'assurer encore quelques nuits blanches à me lire

Bonne fin de semaine,

[Tofalu]

Sur une ou deux copie d'écran, j'ai remarqué que tu ne libérais par ta classe explicitement en fin de fonction. J'ai pris l'habitude de le faire systématiquement mais c'est peut-être du superflu ?

A priori c'est superflu puisque les objets sont détruits en fin de procédure. Toutefois, c'est bien plus sage de les affecter à nothing surtout pour un tutoriel POO. Pour un tutoriel DAO, ça passe

[DarkVader]

A priori c'est superflu puisque les objets sont détruits en fin de procédure. Toutefois, c'est bien plus sage de les affecter à nothing surtout pour un tutoriel POO. Pour un tutoriel DAO, ça passe

Bonjour,
L'objet occupe en fait un espace mémoire unique quelque soit le nombre d'instances -
seul un offset de cet espace est modifié quand une nouvelle instance est crée (le compteur d'instance).
Nothing n'agit que sur le compteur de références, mais ne détruit pas directement l'objet :
son utilisation permet d'anticiper ce qui se fera automatiquement en fonction de la portée de l'instance concernée -
l'objet ne sera détruit que quand le compteur sera à 0.

exemple:
procédure A : déclaration locale d'un objet : compteur=1
appel dans la procédure d'une procédureB à laquelle est passée l'objet cloné : compteur =2
dès que Objet cloné = Nothing => compteur =1
sinon attente que l'objet cloné atteigne la fin de sa portée (fin de procédure) => compteur=1

dans procédureA : objet original = Nothing entraine compteur =0 et destruction de l'objet
sinon en fonction de la portée de l'objet original

Quid en cas de plantage du code ?
Le compteur n'est pas obligatoirement décrémenté et l'espace mémoire n'est pas libéré.
De fait, outre le gain de lisibilité du code, il semble donc plus sage de pratiquer la décrémentation via nothing
dès que l'objet n'est plus utile sans attendre la fin de procédure
(les placer systématiquement en fin de portée étant sans intérêt),
voir de l'inclure dans la procédure de gestion d'erreur.

PS: Il existe des Apis non documentées de msvbvm permettant d'agir directement sur le compteur de référence
(Ce qui rend possible un pseudo Garbage Collector sous VB6).



C'est un bon début. Je suis curieux de la suite.

[deedolith]

1. Sur une ou deux copie d'écran, j'ai remarqué que tu ne libérais par ta classe explicitement en fin de fonction. J'ai pris l'habitude de le faire systématiquement mais c'est peut-être du superflu ?

Ce n'est pas faux de détruire explicitement les instances crées, mais ca peut devenir lourd.
Je préfère faire confiance au garbage collector de VBA (même s'il est limité), dans la plupart des cas, une instance qui sort de la portée d'utilisation est automatiquement détruite.

@Pierre Fauconnier:
Ton tutoriel est une bonne introduction, tu as cependant oublié d'aborder le constructeur (Class_initialize) et le destructeur (Class_Terminate).
je serais également allé plus loin, en introduisant les notions de classe à sémantique de valeur, sémantique d'entité, la notion de Factory, ainsi que ce qui fait le point fort des classes: L'héritage (si, si, ça existe en VBA).

Concernant les sémantiques:
Une classe, une fois instanciée, doit être directement utilisable.
Dans le cas d'une class à sémantique de valeur (comme dans ton exemple: un contact), cela à du sens de créer une instance vierge, ainsi que modifier chacune de ses propriétés (ou presque).
Par contre, une classe à sémantique d'entité n'obéit pas aux même règles, par exemple pour une classe Voiture, cela n'a pas de sens de modifier son modèle ou son N° de série (ces propriétés doivent être fixées une fois pour toute à la création).
VBA n'offrant malheureusement pas de moyen simple d'enforcer un tel comportement, une solution consiste à déléguer l'instanciation et initialisation de l'objet à une fonction dite "Factory", ainsi qu'a un pseudo-constructeur.
Exemple:

Code :

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

1
2
3
4
5
6
7
    '// fonction "Factory"
Public Function CreateVoiture(ByVal Constructeur As String, ByVal Modele As String) As Voiture
    Dim Voiture As Voiture
    Set Voiture = New Voiture
    Voiture.Create Constructeur, Modele
    Set CreateVoiture = Voiture
End Function

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
    '// Class Voiture
Private mConstructeur As String
Private mModele As String
 
    '// Pseudo constructeur
Friend Sub Create(ByVal Constructeur As String, ByVal Modele As String)
    mConstructeur = Constructeur
    mModele = Modele
End Sub
 
Public Property Get Constructeur() As String
    Constructeur = mConstructeur
End Property
 
Public Property Get Modele() As String
    Modele = mModele
End Property

Code :

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

1
2
3
4
5
6
7
8
    '// Fonction de test
Public Sub Test()
    Dim Voiture As Voiture
    Set Voiture = CreateVoiture("Peugeot", "205")
 
    Debug.Print Voiture.Constructeur    '// Ok
    Voiture.Constructeur = "Renault"    '// Ko
End Sub

Concernant l'heritage:
C'est une notion beaucoup plus complexe, et VBA ne permet d'hériter que des interfaces publiques.
Cela permet Cependant d'introduire des variances de comportement car la classe héritante est substituable à la classe de base
Exemple:

Code :

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

1
2
3
4
5
6
    '// Interface Animal
    '// Ne pas oublier de mettre la propriété Instancing à PublicNotCreatable
Option Explicit
 
Public Function Cris() As String
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    '// Class Chat
Option Explicit
Implements Animal
 
Private Function Animal_Cris() As String
    Animal_Cris = Cris
End Function
 
Public Function Cris() As String
    Cris = "Miaou"
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    '// Class Chien
Option Explicit
Implements Animal
 
Private Function Animal_Cris() As String
    Animal_Cris = Cris
End Function
 
Public Function Cris() As String
    Cris = "Wouf wouf"
End Function

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
    '// Tests
Public Sub Test()
    Dim Animal As Animal
    Set Animal = New Chat
    Debug.Print Animal.Cris    '// Affiche Miaou
 
    Dim Chien As Chien
    Set Chien = New Chien
    Debug.Print Chien.Cris    '// Affiche Wouf wouf
 
    Dim Chat As Chat
    Set Chat = New Chat
    Debug.Print Chat.Cris    '// Affiche Miaou
 
    Affiche Chien    '// Affiche Wouf Wouf
    Affiche Chat     '// Affiche Miaou
End Sub
 
Public Sub Affiche(ByRef Animal As Animal)
    Debug.Print Animal.Cris
End Sub

[Lhiflhif]

Bonjour

Étant nouveau dans la programmation, j'ai trouvé ce tuto vraiment bien expliquer, il me convient vraiment pour débuter.

Je vous remercie Pierre pour ce travail ainsi http://www.developpez.net

Par contre j'attends avec impatience les 2 autre parties

[-={-_-}=-]

Bonjour Pierre,
Je voulais te féliciter pour ce travail. Je pense que t'y a passé pas mal d'heures et grâce à toi j'espère que de plus en plus de monde commence un peu à "coder object" en VBA.

Perso, j'aurais rajouté une partie sur

Code :

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

Implements

qui permet un héritage entre classe mere et fille ou avec la méthode ci dessous que j'ai apprise sur ce forum
http://www.developpez.net/forums/d53...ion-objet-vba/

En tout cas chapeau!!
C'est grâce à des gens comme toi que developpez.com a une tel renommée.

[Pierre Fauconnier]

Bonjour -={-_-}=-

Merci de ton appréciation. Ecrire un tutoriel prend du temps, c'est vrai, mais c'est un excellent moyen d'approfondir une technique => je suis le premier bénéficiaire de ce travail

Sur l'implémentation en VB(A), il y a eu cet échange très intéressant, qui m'a permis de développer une manière de travailler avec le ruban dans Access... J'ai l'idée de développer un tuto sur ce sujet (la nuit, ...enfin, une nuit...), mais je note l'idée d'aborder ce sujet, après les parties 2 et 3... Merci pour l'idée.

Bonne continuation sur nos forums

[-={-_-}=-]

Mes commentaires sont tout faits justifiés lorsque la qualité est là.
(J'aime bien quand ca mousse un peu).

Je profite de ce post pour dire que pour moi il y a un manque sur ce forum (VBA) et le net général.

Ya plein de références dans VBA que je ne sais pas exploiter...
Ok ya ADODB, ADOX, DAO, Scripting....

Mais les autres....

Je suis sur que si quelques personnes nous en faisait un topo dessus, on pourrait faire plus de choses en VBA.

En tout cas bravo les gars pour ce qui a dja été fait

[Invité]

Bonjour

Je suis sur que si quelques personnes nous en faisait un topo dessus, on pourrait faire plus de choses en VBA.

Pourquoi ne pas te lancer ?

[rajaonadavid]

Pierrre,

Je me suis lancé dans le développement d'applications financières avec Excel, et tant de fois j'ai dû réécrire un code (quasiment le même à chaque fois) pour le formattage des cellules, la création d'objets graphiques, la conversion de données en d'autres types spécifiques, etc..

Eh bien, grâce à votre tutoriel, j'ai appris que les classes étaient ce qu'il me fallait afin de fiabiliser/diminuer/améliorer (en définitive) mon travail.

Mais, je me dis que peut-être devriez-vous en faire une autre version (une suite reprenant des thèmes plus avancés tels que la manipulation des API, par exemple, ou le formattage répétitif de plages de cellules). Ainsi, les 2 tutoriels constitueraient un apprentissage complet des classes personnalisées!

[sellig60]

Je viens de découvrir ce tuto. Il est limpide. Je me suis mis aux modules de classe très récemment et ça a été une revolution pour moi.
Je viens d'apprendre et de comprendre énormément de choses que j'avais zappées.
Un grand merci et de façon général un grand merci à tous les contributeurs qui mettent leur savoir aux services des autres sur ce site.
A la base je ne suis pas programmeur professionnel. Je suis juste enseignant. Et si maintenant j'arrive à faire des bases access uniquement codées en vba, c'est grâce à vous et la lecture de 4 livres qui datent de mathusalem!

[Pierre Fauconnier]

Salut.

Merci pour cette appréciation. Content que ce tuto serve toujours, cinq ans après sa création.

[klissou69]

Bonjour,

Je vais encore passer pour un noob/casu mais c'est pas grave. J'ai commencé à m'attaquer à ce tuto, et après maintes recherches, je n'arrive toujours pas à 'compiler' le code pour le tester.

Désolé pour ma naiveté mais j'aimerai bien réussir à tester ce que vous proposez pour en apprendre davantage.

Merci d'avance.

[eriiic]

Bonjour,

en un mot : bravo !
Vraiment merci pour ce tuto clair et détaillé.
Tout ce qu'il faut pour démarrer, étape par étape.

eric

[Pierre Fauconnier]

Bonjour,

Bonjour,

Je vais encore passer pour un noob/casu mais c'est pas grave. J'ai commencé à m'attaquer à ce tuto, et après maintes recherches, je n'arrive toujours pas à 'compiler' le code pour le tester.

Désolé pour ma naiveté mais j'aimerai bien réussir à tester ce que vous proposez pour en apprendre davantage.

Merci d'avance.

Qu'entends-tu pas "compiler"? Tu travailles en VB6 ou avec VBA? Avec le peu que tu donnes comme infos sur le problème que tu rencontres, je ne vois pas bien comment t'aider...

[Pico142]

Très bon tuto.

Je n'utilisais pas vraiment les classes en VBA jusqu'à maintenant car je ne savais pas trop comment faire ; je vais pouvoir modifier beaucoup de choses grâce à tout ce que je viens d'apprendre. Merci.

Je ne trouves les parties 2 et 3 sur le site, est-ce que je suis passé à côté ? Est-ce qu'elles sont toujours d'actualité ?

Merci