Discussion :

[bsangoku]

Bonjour,

Je suis débutant en VBA. Et je souhaite régler un problème: réduire la taille de mes programmes.

J'ai fais un sub qui regroupe quelques instructions qui reviennent 4 fois dans le code

Code :

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

1
2
3
4
5
6
7
Sub Stat (ByVal dMoyenne As Double, ByVal dMediane As Double, _
             ByVal dmax As Double,ByVal dmin As Double, ByRef vVec1 As Variant)
dMoyenne=Moyenne(vVec1)
dMediane= Mediane(vVec1)
dMax= Max(vVec1)
dMin=Min(vVec1)
End sub

Dans la procédure Stat, toute les variables reçoivent bien une valeur. Mais dans la procédure finale, avec mon call je vois que mes variables sont nulles. Pourquoi et comment remédier à ce problème?

Code :

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

1
2
3
4
5
6
Sub finale()
dim dMoyenne, dMediane, dMax, dMin as Double
dim vVecteur as variant
.../* PAS MAL D'INSTRUCTION*/
Call Stat(dMoyenne,dMediane,dMax,dMin,vVecteur)
End Sub

Merci d'avance

[issoram]

Bonjour,

Il faut que tu passes tes arguments par référence (ByRef), pour qu'ils soient modifiés par la procédure. Si tu les passes par valeur (ByVal) ce sont des copies de tes variables qui sont envoyées à la fonction.
Un petit exemple pour t'en convaicre

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 testByVal(ByVal valeur As Double)
    valeur = 9
End Sub
 
Sub testByRef(ByRef valeur As Double)
    valeur = 9
End Sub
 
Sub testMain()
 
    Dim valeur As Double
    valeur = 0
 
    testByVal valeur
    Debug.Print "Byval: " & valeur   'affiche  0
 
    testByRef valeur
    Debug.Print "ByRef: " & valeur   'affiche 9
 
End Sub

D'autre part une remarque concernant la déclaration des tes variables:

Code :

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

dim dMoyenne, dMediane, dMax, dMin as Double

Dans cette instruction, seule dMin est déclarée en tant que Double, les autres seront de type Variant.

Bon WE.