Procédure et paramètres en sortie

Version imprimable

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

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

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)

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

19/09/2011, 08h56
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