Pour décompter jours fériés et samedis et dimanches Dans un module :
Function Heur_Ouvr(Début, Fin, PlageFériés) For i = Début * 1 To Fin * 1 Step TimeValue("0:01") If Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _ And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1 Next Heur_Ouvr = x / 1440 End Function
Dans la feuille ça fera (cellule au format [hh]:mm)
=Heur_Ouvr(A1;B1;fériés)
Etc
"SALUT" <youri.salut@edtc.sogeclair.fr> a écrit dans le message de news:
uEbk3s5ZKHA.2164@TK2MSFTNGP02.phx.gbl...
Pour décompter jours fériés et samedis et dimanches
Dans un module :
Function Heur_Ouvr(Début, Fin, PlageFériés)
For i = Début * 1 To Fin * 1 Step TimeValue("0:01")
If Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _
And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1
Next
Heur_Ouvr = x / 1440
End Function
Dans la feuille ça fera (cellule au format [hh]:mm)
Pour décompter jours fériés et samedis et dimanches Dans un module :
Function Heur_Ouvr(Début, Fin, PlageFériés) For i = Début * 1 To Fin * 1 Step TimeValue("0:01") If Application.CountIf([PlageFériés], CDate(Int(i)) * 1) = 0 _ And Weekday(CDate(Int(i)) * 1, 2) < 6 Then x = x + 1 Next Heur_Ouvr = x / 1440 End Function
Dans la feuille ça fera (cellule au format [hh]:mm)
=Heur_Ouvr(A1;B1;fériés)
Etc
FS
Bonjour,
En supposant que la date et l'heure sont dans la même cellule et que les jours fériés sont dans une plage du classeur nommée 'Feries', essaye :
A tirer vers le bas. Remarque : pour le premier calcul j'obtiens 75:42:00 et non ce que tu annonces. Y a-t-il d'autres contraintes à prendre en compte ?
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
SALUT a écrit :
Bonjour,
J'ai besoin de calculer le nombre d'heures entre 2 dates selon les jours ouvrables.
A tirer vers le bas.
Remarque : pour le premier calcul j'obtiens 75:42:00 et non ce que tu annonces.
Y a-t-il d'autres contraintes à prendre en compte ?
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
SALUT a écrit :
Bonjour,
J'ai besoin de calculer le nombre d'heures entre 2 dates selon les jours
ouvrables.
A tirer vers le bas. Remarque : pour le premier calcul j'obtiens 75:42:00 et non ce que tu annonces. Y a-t-il d'autres contraintes à prendre en compte ?
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
SALUT a écrit :
Bonjour,
J'ai besoin de calculer le nombre d'heures entre 2 dates selon les jours ouvrables.