l'apel d'une fonction [Résolu]

[k-eisti]

Bonjour a tous


j'ai cette fonction qui compte le nombre de gagns pour las participants a un concour

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Function Compteur (feuille As Worksheet, Lig As Integer)
Dim karim As String
Dim G As String
 
Set Bo_list = feuille.Range(Cells(Lig, 11), Cells(Lig, 50))
 MsgBox Bo_list.Address
ctr = 0
For Each BOItem In Bo_list
   If BOItem.Value = "" Or IsNull(BOItem.Value) Or BOItem.Value <> "G" Then GoTo next_boItem
    ctr = ctr + 1
next_boItem:
    Next BOItem
 
    Compteur = ctr
End Function

et je fait apel a cette fonction de cette façon:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub parcour()
 
Dim Lig1 As Integer
Dim Col As Integer
Lig1 = 2
Col = 2
ctrGeneral = 0
 
 Call essai(Worksheets("Diacs"), Lig1)
 ctrGeneral = ctrGenral + ctr
 MsgBox ctrGeneral
End Sub

et je veux que CtrGeneral soit egale ctr aprés l'apel de la fonction Compteur .

mai le CtrGeneral =0 .donc je n'arrive pas a récuperer la valeur de "ctr" qui est le compteur de la Fonction Compteur .

Merci d'avance de m'aider a trouver la soulution .

[gruget]

Bonjour,
pour récupérer la valeur renvoyer par une fonction met la directement dans une variable comme ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub parcour()
 
Dim Lig1 As Integer
Dim Col As Integer
Lig1 = 2
Col = 2
ctrGeneral = 0
 
 ctrGeneral = ctrGeneral + Compteur(Worksheets("Diacs"), Lig1)
 MsgBox ctrGeneral
End Sub

rémi

[k-eisti]

OK , Merci gruget sa marche