Optimisation code - déclaration des variables

Bonjour à tous,

Je souhaiterais avoir votre avis concernant la déclaration de variables dans un module contenant plusieurs fonctions et procédures.

Quels sont les avantages/inconvénients de déclarer les variables à l'intérieur de chacune d'entre elles

Code:

---

1 2 3 4 5 6 7 8 9

Sub Procedure_1() dim i as byte [...] End Sub   Function Fun_1() as string dim i as byte [...] End Function

---

Ou alors de les déclarer au début du module pour l'ensemble des fonctions et procédures ?

Code:

---

1 2 3 4 5 6 7 8 9 10

dim i as byte   Sub Procedure_1() [...] End Sub   Function Fun_1() as string [...] End Function

---

Il y a-t-il des impacts sur la rapidité du code à s'exécuter, sur la robustesse du code ou autre ?

Merci d'avance pour vos avis sur la question !

Bonjour,

La différence, c'est que les variables dans les procédures et fonction sont détruites à la fin et en tête de module, quand tu quittes Excel donc, si tu lance les deux proc ci-dessous l'une après l'autre :

Code:

---

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

Dim I As Integer   Sub Procedure_1()   I = 10   MsgBox I   End Sub   Sub Procedure_2()   I = I + 2   MsgBox I   End Sub

---

tu aura 10 pour la première et 12 pour la seconde car la valeur est gardée en mémoire tant que le classeur n'est pas fermée !
et pour celles-ci :

Code:

---

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

Sub Procedure_1()   Dim I As Integer   I = 10   MsgBox I   End Sub   Sub Procedure_2()   Dim I As Integer   I = I + 2   MsgBox I   End Sub

---

tu aura 10 pour la première et 2 pour la seconde car en fin de 1ère procédure, la variable est détruite et dans la 2ème procédure tu recrée une nouvelle variable I qui est initialisée à 0

je ne répéterai pas ce qu'a dit Theze. mais il est toujours possible de mixer les 2!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

sub teste1() 'la on passe en paramètre i qui est unique pour les 2 dim i as byte Procedure_1 i Fun_1 i end sub sub teste2() 'la on passe en paramètre i qui est valable que pour Procedure_1 dim i as byte Procedure_1 i end sub sub teste3() 'la on passe en paramètre i qui est valable que pour Fun_1 dim i as byte Fun_1 i end sub   Sub Procedure_1( i as byte) [...] End Sub   Function Fun_1( i as byte) as string [...] End Function

---

Il est bien évident qu'il est possible de passer une variable en argument à une procédure ou fonction mais elle sera systématiquement détruite en fin de procédure initiale

entièrement d'accord avec toi Theze, le reste dépend de l'utilité! perso je n'aime les variable globales dans Excel Vba.

mais je voulais ajouter, à ta démonstration une autre possibilité!

C'est vrai qu'il faut bien faire attention aux valeurs quelles peuvent avoir (modifiées à différents endroits), ça peut donner des résultats surprenants et non attendus ! Je ne les utilise que quand leurs durées doivent être celle du classeur.

Bonjour et merci pour vos réponses !

Je suis tout à fait d'accord avec vous, mais je voulais savoir si l'une ou l'autre des déclarations pouvait avoir une influence sur la performance du code ?

D'après vos arguments, les différentes méthodes de déclarations impliquent seulement l'utilisation de variables... Je me permets toutefois d'insister un petit peu :)

En ayant par exemple 10 fonctions dans un même module qui utilisent la variable i (dans des boucles for) : si je déclare en tête du module, de toute façon la réinitialisation de la variable se fera dans chaque fonction (For i = 1 to ...), donc pas de problème pour les valeurs que cette variable peut prendre. Quel pourrait alors être l'intérêt de déclarer i dans chaque fonction ?

Pour être un peu bourrin, faudrait-il mieux faire :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Procedure_1() dim i as byte i=1 End Sub   Function Fun_1() as string dim i as byte i=2 End Function

---

ou

Code:

---

1 2 3 4 5 6 7 8 9

dim i as byte   Sub Procedure_1() i=1 End Sub   Function Fun_1() as string i=2 End Function

---

Ou alors est-ce strictement la même chose sur tous les points de vue ?

Merci d'avance pour vos éclaircissements !

bonjour,
i est byte, les conséquence sont infimes, mais il pourrais s’agir de classe voir de collection de classe; là en terme de performances ça pourrait faire la différence!

le problème en réalité c'est l'utilisation. si tu place i dans ta fonction, tu as une lisibilité sur la totalité de ta fonction.
si tu modifies ta fonction tu n'impacte que ta fonction, si i y a inter dépendance de ta variable, une modification entraîne une avalanche en chaîne! et tu dois reprendre tout ton code.

Code:

---

Function A(ByVal t As Integer) As Integer

---

ici t est passé en recopie de valeur?
cela veut dire qu'une nouvelle variable est créée et quelle est initialisé par le valeur de i, ainsi tu peut en modifier la valeur de t sens changer la valeur de i!

Code:

---

Function A(ByRef t As Integer) As Integer

---

ici la valeur est passées en référence? si tu change la valeur de t tu change la valeur de i!

c'est l’occasion qui fait le larron! la multiplication des variable alourdi le processus, la globalisation de variable complique la maintenance!

Bonjour,

L'optimisation du code par la déclaration des variables fera gagner au mieux 5% ou 10%.

C'est avec la méthode utilisée que l'on peut gagner du temps de façon significative:
-Pour un tri d'Array, le temps d'exécution d'une Quick-sort n'est pas comparable à celui d'une Bubble-Sort
-En transférant les champs dans des Arrays, on peut gagner du temps.
-On peut indexer les Arrays avec des dictionnaires.
-.......

-Dans l'exemple joint, on génère des onglets à partir d'une BD. Suivant la méthode utilisée, on divise par le temps d'exécution par 10.

Boisgontier

Merci pour ces éléments de réponse !

Bonjour à tous,

Comme le disais rdurupt, avec un byte la différence est infime.
Là où je pense qu’il faut être vigilent, c'est avec les variables plus "lourde", celle qui sont en fait des objets qui vont avoir des propriétés, des méthodes … (comme des Range, des WorkSheet …)

Dans un code on les reconnaît facilement avec l'utilisation du Set.

Code:

---

Set ma feuille = ThisWorkbook.Sheets("Feuil1")

---

Il peut être bon de prendre le réflexe de toujours libérer ce type de variable en les remettants à Nothing en fin de code.

Dans le pratique j'essaye au maximum de faire des Sub qui ressemble à ça :

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim ....... [Ensemble d'instructions] Fin: Set var1 = Nothing ... Set varX = Nothing End Sub

---

Ce n'est pas le sujet de départ mais je pense qu'il s'agit d'une chose à avoir en tête ;)