bonjour à tous,

j'ai un problème avec la fonction match lorsque ma plage de données se trouve dans une autre feuille. voici mon code :
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
18
19
 
Function Nbarrets(plage As Range, semaine As Integer) As Integer
 
Dim depart As Integer, lignes As Integer, arrivee As Integer
 
'recherche la 1ère ligne qui contient le numéro de semaine
'dans la plage donnée
depart = WorksheetFunction.Match(semaine, plage, 0)
 
'calcule le nombre de lignes contenant le numéro de semaine
'dans la plage donnée
lignes = WorksheetFunction.CountIf(plage, semaine) 'WorksheetFunction
 
arrivee = depart + lignes - 1
 
Nbarrets = WorksheetFunction.CountIf(Range("w" & depart, "w" & arrivee), "<>0")
 
 
End Function

cette fonction marche uniquement si ma plage est contenue dans la meme feuille .

avez-vous des idées.

merci