Discussion :

[awa123]

bonjour,

voici le code suivant :

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

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

[PMO2017]

Bonjour,

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

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

[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

[awa123]

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

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

Code :

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

y = y * 5

si ByVal ne fais qu'une copie du résultat précédent (issu de MaProcedure_1)?

[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'.