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 :
Merci pour vos commentaires
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
Partager