Procédure et paramètres en sortie [Résolu]

[magicbisous-nours]

Bonjour,
Je suis en train de développer une macro qui rempli des tableaux de stats à partir de tableaux de données situés dans d'autre feuilles de calculs du même fichier.
J'ai besoin de faire une procédure qui a plusieurs paramètres en sortie j'ai donc googlé un peu et j'ai trouvé le ByRef.... Sauf que mes variables, après avoir été passée en paramètre ByRef à ma procédure, est vide....

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub calcStats
 
Dim nbFoyers
Dim nbEnfants
 
' Nombre de foyers pour les Vacances Familiales pour la tranche < 401
CompteNbFoyers 0, 400, "VF", nbFoyers, nbEnfants
MsgBox nbFoyers, 64
MsgBox nbEnfants, 64
[...]
End Sub
 
Sub CompteNbFoyers(ByVal QFMin As Integer, ByVal QFMax As Integer, ByVal typeVac As String, ByRef nbFoyers As Integer, ByRef nbEnfants As Integer) As Integer 
[...]
	nbFoyers = 0
	nbEnfants = 0
[... super code qui marche bien (vérifié avec des MsgBox) ]
 
End Sub

Quelqu'un saurait comment je peux récupérer les valeurs de mes deux variables nbEnfants et nbFoyers dans ma procédure principale (calcStats) ?

Merci d'avance

[ctac_]

Bonjour,

Comme ceci, ça fonctionne.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub calcStats()
    Dim nbFoyers As Integer
    Dim nbEnfants As Integer
    CompteNbFoyers 0, 400, "VF", nbFoyers, nbEnfants
    MsgBox nbFoyers, 64
    MsgBox nbEnfants, 64
End Sub
 
Sub CompteNbFoyers(ByVal QFMin As Integer, ByVal QFMax As Integer, _
    ByVal typeVac As String, _
    ByRef nbFoyers As Integer, ByRef nbEnfants As Integer)
    nbFoyers = 10
    nbEnfants = 50
End Sub

ctac

[jfontaine]

Bonjour,

Le mieux serait peut etre d'utiliser la portée des variables plutôt que d'esayer de les passer en paramètres

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim nbFoyers As Integer
Dim nbEnfants As Integer
 
Sub calcStats()
    CompteNbFoyers 0, 400, "VF"
    MsgBox nbFoyers, 64
    MsgBox nbEnfants, 64
End Sub
 
Sub CompteNbFoyers(ByVal QFMin As Integer, ByVal QFMax As Integer, _
    ByVal typeVac As String)
    nbFoyers = 10
    nbEnfants = 50
End Sub

A étudier aussi l'utilisation des fonctions à la place d'une procèdure (pour CompteNbFoyers)

[Theze]

Bonjour,

Ce que propose ctac est ce qu'il y a de plus simple mais il est aussi possible d'en faire une fonction tableau :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub calcStats()
 
    Dim T() As Long
 
    T = CompteNbFoyers(0, 400, "VF")
 
    MsgBox "Nombre de foyers : " & T(1) & vbCrLf & "Nombre d'enfants : " & T(2)
 
End Sub
 
Function CompteNbFoyers(ByVal QFMin As Integer, _
                        ByVal QFMax As Integer, _
                        ByVal typeVac As String) As Long()
 
    Dim T(1 To 2) As Long
 
    T(1) = 10
    T(2) = 50
 
    CompteNbFoyers = T
 
End Function

Hervé.

[magicbisous-nours]

Bonjour,
tout d'abord merci à tous pour vos réponses...
J'ai essayé ce que propose JFontaine et cela fonctionne...
La fonction tableau ce qui me "repousse" un peu c'est que je vais avoir besoin de BEAUCOUP de données à passer (10 ou 15) et à récupérer en sortie... du coup je trouve qu'utiliser des variables globales est plus simple...

Merci beaucoup