Bonjour,

Le retour de la fonction suivante m'indique l'erreur #VALEUR! dans la cellule où elle s'applique.
Son objectif est de donner le nombre de jours de lundi ou mardi ou ...vendredi (via numjour) comprise entre deux dates

Par exemple en A1: 01/01/2013
en A2 : 10/01/2013
en A3 : =HP_nbjours(A1;A3;A4)


La fonction est :
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
 
Function HP_nbjours(DateDebut As Date, DateFin As Date, Numjour as integer) As Long
    Dim n As Integer, i As Integer
 
    With Application
        n = 0
        For i = DateDebut To DateFin
            With .WorksheetFunction
              If (.Weekday(i, 2) = NumJour And .Weekday(i, 2) <= 5 Then
                    n = n + 1
               End If
            End With
        Next i
 
    End With
    End If
    HP_nbjours = n
End Function
Merci pour vos commentaires