Incompréhension Byref VBA

Version imprimable

bonjour,

voici le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 Sub Test() Dim Donnee As Integer Donnee = 50 MaProcedure_1 Donnee MsgBox Donnee MaProcedure_2 Donnee MsgBox Donnee MaProcedure_3 Donnee MsgBox Donnee End Sub 'Passe la référence en argument. Sub MaProcedure_1(ByRef x As Integer) x = x * 4 End Sub 'Passe la valeur en argument. Sub MaProcedure_2(ByVal y As Integer) y = y * 5 End Sub 'ByRef est la valeur par défaut si non spécifiée. Sub MaProcedure_3(z As Integer) z = z * 2 End Sub
la propriété ByRef me parait encore trop abstraite, d'abord je ne comprends pas la deuxième procédure qui renvoi la valeur 200 alors qu'on a : y = y * 5, y prend la valeur de 50 , non?

ensuite pour la troisième procédure nous renvoi la valeur de 400 , j'en déduis donc que la valeur de z a repris le dernier résultat (en l’occurrence ici le résultat de notre deuxième procédure qui est de 200), est ce bien cela?

Thanks a lot!

23/07/2013, 09h04
Invité

bonjour,
Voila ce que dit Microsoft:
byVal:
par valeur
Moyen permettant de passer à une procédure la valeur d'un argument plutôt que son adresse. La procédure peut de ce fait accéder à une copie de la variable. La valeur réelle de cette dernière n'est donc pas modifiée par la procédure à laquelle elle est passée.

ByRef:
par référence
Moyen permettant de passer à une procédure l'adresse d'un argument plutôt que sa valeur. La procédure peut ainsi accéder à la variable proprement dite. La valeur réelle de cette dernière peut, de ce fait, être modifiée par la procédure à laquelle elle a été passée. Par défaut, les arguments sont passés par référence.

Bonjour,

J'espère être compréhensible avec le code commenté suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub Test()
Dim Donnee As Integer
Donnee = 50
MaProcedure_1 Donnee
Debug.Print Donnee
MaProcedure_2 Donnee
Debug.Print Donnee
MaProcedure_3 Donnee
Debug.Print Donnee
End Sub
 
'Passe la référence en argument.
'/// l'argument passé par référence est directement affecté
'/// on a donc 50 * 4 = 200
Sub MaProcedure_1(ByRef x As Integer)
x = x * 4
End Sub
 
'Passe la valeur en argument.
'/// l'argument passé par valeur reste lui même
'/// ByVal crée une copie de l'argument sans l'affecter
'/// on a donc argument = argument (200 = 200)
'/// l'argument, suite à MaProcedure_1 est = 200
Sub MaProcedure_2(ByVal y As Integer)
y = y * 5
End Sub
 
'ByRef est la valeur par défaut si non spécifiée.
'/// sans précision, l'argument est interprété comme ByRef
'/// et est donc directement affecté
'/// suite à MaProcedure_2, l'argument est = 200
'/// on a donc argument * 2 soit 200 * 2 =400
Sub MaProcedure_3(z As Integer)
z = z * 2
End Sub
 
'REMARQUE
' on devrait user plutôt du terme paramètre que du terme argument
' Les procédures, dans le cas présent, demandent 1 argument
' Le traitement (Sub Test) passe un paramètre (Donnee) aux procédures
' Il y a donc un distinguo entre argument et paramètre

23/07/2013, 10h34
Philippe Tulliez

Bonjour,
Un bon tutoriel à lire Utiliser les variables en VBA Excel et tout particulièrement le chapitre sur la différence entre ByRef et ByVal
23/07/2013, 12h35
awa123

Merci pour ton code PMO2017, c'est génial

juste une chose : dans ByVal , à quoi sert d'écrire

Code:

y = y * 5

si ByVal ne fais qu'une copie du résultat précédent (issu de MaProcedure_1)?
23/07/2013, 13h11
Invité

C'est justement pour expliquer la différence entre 'ByVal' et 'ByRef' pour montrer qu'il n'y a pas d'influence sur la variable 'Donnees'.