Bonjour a tous
j'ai cette fonction qui compte le nombre de gagns pour las participants a un concour
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 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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 .
Partager