Bonjour,
j'utilise le code suivant pour compter le nombre de lundis qu'il y a entre 2 dates moins les jours fériés, mais ca ne décompte pas les jours fériés?
j'utilise excel 2007, peut etre que le code des jours fériés n'est pas compatible
j'utilise le code suivant pour compter le nombre de lundis qu'il y a entre 2 dates moins les jours fériés, mais ca ne décompte pas les jours fériés?
j'utilise excel 2007, peut etre que le code des jours fériés n'est pas compatible
Code:
Function NB_Lundis_matin(Date_Début As Date, Date_Fin As Date, feries As Range) As Long
If Range("I53") = "2" Then
n = 0
For i = Date_Début To Date_Fin
If Application.WorksheetFunction.Weekday(i) = 2 Then
n = n + 1
End If
If Application.WorksheetFunction.Weekday(i) = 2 And Application.CountIf(feries, i) > 0 Then
n = n - 1
End If
Next
If Range("d71") = "2" Then
n = n - 1
End If
If Range("b71") = "2" Then
n = n - 1
End If
NB_Lundis_matin = n
Else
NB_Lundis_matin = "0"
End If
If NB_Lundis_matin < "0" Then
NB_Lundis_matin = "0"
End If
End Function