Discussion :

[flav_cm]

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 :

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

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 :

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

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 !

[Theze]

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 :

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
 
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 :

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
 
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

[Invité]

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

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
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

[Theze]

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

[Invité]

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é!

[Theze]

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.