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