Variables publiques ou module de classe

Bonjour,

Au détour de plusieurs discussions, il apparaît que certains n'utilisent pas de variables publiques, mais plutôt un module de classe.

J'ai fait pas mal de recherche, mais je n'ai pas trouvé de discussions relatant les avantages / désavantages de telle ou telle solution. J'espère ne pas les avoir manquées. Si tel était le cas, merci de me "glisser" le(s) lien(s).

Autrement, je serais vraiment intéressé à avoir des avis sur la question.

Merci d'avance.

Domi2

Bjr,

Je donne mon avis, me frapper pas :

Pour les classes je vois rapidement deux avantages :
1 - On dispose d'une procédure Class_Initialize et d'une procédure Class_Terminate (pour libérer d'éventuels objets publiques)
2 - On peut libérer la mémoire lorsqu'on n'a plus besoin des variables

Exemple un peu exagéré pour la question de la mémoire :
Je veux passer un tableau de un million d'entrées d'un formulaire à un autre (ah bon c'est beaucoup?)

Si je choisi la solution de variable publique :
- Je déclare un tableau :

Code:

---

Public MonTableau(1 To 1000000) As String

---

- Je rempli le tableau dans le premier formulaire :

Code:

---

1 2 3 4 5

Dim lcpt As Long For lcpt = 1 To 1000000 MonTableau(lcpt) = Str(lcpt) Next

---

- et ensuite je peux ouvrir le deuxième formulaire et utiliser mon tableau

==> bilan de l'opération : 38Mo de mémoire qui ne seront pas libérés avant la fermeture de l'application


Si je choisi la solution d'une classe :
- Je crée une classe, nommée Classe1, dans laquelle je défini mon tableau et les méthodes et propriétés dont j'ai besoin pour le remplir et le lire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Option Explicit   Private MonTableau() As String   Public Sub RedimTab(pTaille As Long) ReDim MonTableau(1 To pTaille) As String End Sub   Property Get Valeur(pIndex As Long) As String Valeur = MonTableau(pIndex) End Property   Property Let Valeur(pIndex As Long, pValeur As String) MonTableau(pIndex) = pValeur End Property

---

- Je déclare mon instance de classe en publique quand même...

Code:

---

Public cl As Classe1

---

- Dans mon premier formulaire je crée mon objet de classe

Code:

---

Set cl = New Classe1

---

- Et je rempli mon tableau

Code:

---

1 2 3 4 5 6

cl.RedimTab (1000000) Dim lcpt As Long For lcpt = 1 To 1000000 cl.Valeur(lcpt) = Str(lcpt) Next

---

- J'ouvre ensuite mon deuxième formulaire, je me sers des données du tableau

Code:

---

1 2	MsgBox cl.Valeur(56213)

---

- Et à la fin, lorsque je n'ai plus besoin des données (au pire à la fermeture du deuxième formulaire) je libère l'instance de classe, et donc la mémoire utilisée par toute les variables qu'elle contient.

Code:

---

1 2	Set cl = Nothing

---

==> bilan de l'opération : Les 38Mo de mémoire sont libérés après utilisation

Pour un cas simple avec une ou deux variables, la méthode "variable publique" ne m'effraye pas plus que ça....

ben vrai c'est bien utile tout ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim montab() As Variant   Sub litab(ByRef x As Variant) ' à ce stade j'ai combien de mémoire affectée ? MsgBox (UBound(x)) End Sub   Function essai() ReDim montab(1000000) litab (montab) End Function ' et à ce stade ?

---

Bonjour Arkham,

Et merci de ton intérêt.

En fait, j'utilise entre 5 et 15 variables publiques (ordre de grandeur), essentiellement des variables de type String, qui on surtout rapport avec l'environnement des applications (chemin de certains répertoires / dossiers, configuration de certaines options, etc...).

Je pourrais donc tout aussi bien me servir d'une table "Paramètres" et récupérer les informations dont j'ai besoin en temps utile (j'ai encore une appli qui fonctionne sur ce principe).

La seul gros défaut que je vois à l'utilisation de variables publiques, c'est évidemment une erreur non gérée, les variables étant perdues. Cela nécessite donc une gestion d'erreur "béton".

Mais autant que j'aie pu lire, je n'ai vu nul part que l'utilisation d'un module de classe permettait de pallier à cet inconvénient.

Domi2

L'avantage du module de classe sur la variable globale c'est que tu as un peu plus de contrôle sur les manip qui sont faites sur ta variable.

Je dis un peu car comme tu n'as pas de constructeur paramétré pratiquement n'importe quel programme peu modifier ta variable mais c'est en théorie plus propre.

Personnelement pour des variables d'environement j'utilise des variables globales. Ces variables n'étant généralement écrites qu'une seule fois et lues plein de fois il y a peu de risque qu'elles soients modifiées par erreur.

Par contre je fuis comme la peste les variables globales pour le passage de d'informations entre module ! Ces variables ont généralement une vie plus mouvementée et un bon contrôle est le bienvenu.

A+

Bonjour,

Et merci pour vos réponses...

Au détour d'une discussion, mout1234 a dit :

Citation:

---

Pour ma part, je mets ce genre de truc dans une classe représentant l'appli...

---

Je vais donc essayer de faire un module de classe... Et je reviendrais si j'ai des questions plus précises ou si je bute sur un problème particulier.

Domi2

Hello,

Merci Domi2 d'avoir créé cette discussion... Ca rejoint un petit peu celle que j'ai créée ici

Je m'aperçois fnalement qu'il y a beaucoup de questions sur les modules de classes avec access...

Je vais continuer de chercher, essayer de trouver de la doc afin de rendre tout ceci plus clair encore...

Bonjour,

Citation:

---

Ca rejoint un petit peu celle que j'ai créée ici

---

Oui, je la suis attentivement ;)

J'ai créé mon premier module de classe (modeste, 3 propriétés pour l'instant) à l'aide du tuto du site.

Ca fonctionne parfaitement, mais je pense que j'aurais des questions... :aie:

J'ouvrirais une nouvelle discussion plus précise sur le sujet.

Encore merci à tous.

Domi2

Hello,

il y a une autre solution typiquement Access, c'est d'ajouter des propriétés à la base.

http://access.developpez.com/faq/?pa...ModifPropriete