OVH Cloud OVH Cloud

Dernier de jours ouvrables du mois!

4 réponses
Avatar
Casrlos A.
Bonjour

J'aimerais savoir s'il existe une function (ou une formule) qui me permettra
de calculer le dernier jour ouvrable d'un mois.

Merci c'avance.

4 réponses

Avatar
AV
Pour le dernier jour ouvré du mois de la date, une possibilité de fonction perso
:
Dans un module ordinaire :

Function derJ_Ouvré(laDate, PlageFériés)
premJ = laDate - Day(laDate) + 1
derJ = DateSerial(Year(laDate), Month(laDate) + 1, 0)
For i = derJ To premJ Step -1
If Weekday(i, 2) < 6 And Application.CountIf([PlageFériés], i) = 0 Then
Exit For
Next
derJ_Ouvré = i
End Function

Exemple dans la feuille de calcul avec une plage des jours fériés nommée "Jrfs"
:
ÞrJ_Ouvré(A1;Jrfs)

AV
Avatar
Daniel
Bonjour.
ÚTE(2006;A1+1;0)-CHOISIR(JOURSEM(DATE(2006;A1+1;0));2;0;0;0;0;0;1)
pour un numéro de mois en A1; la formule ne tient pas compte des jours
fériés.
Cordialement.
Daniel
"Casrlos A." a écrit dans le message de news:
%
Bonjour

J'aimerais savoir s'il existe une function (ou une formule) qui me
permettra de calculer le dernier jour ouvrable d'un mois.

Merci c'avance.



Avatar
AV
Une matricielle ?
La date de réf est en A1

A valider par ctrl+maj+entrée
=MAX(LIGNE(INDIRECT(DATE(ANNEE(A1);MOIS(A1);1)&":"&DATE(ANNEE(A1);MOIS(A1)+1;)))*(JOURSEM(LIGNE(INDIRECT(DATE(ANNEE(A1);MOIS(A1);1)&":"&DATE(ANNEE(A1);MOIS(A1)+1;)));2)<6)*(NB.SI(Jrfs;LIGNE(INDIRECT(DATE(ANNEE(A1);MOIS(A1);1)&":"&DATE(ANNEE(A1);MOIS(A1)+1;))))=0))

AV
Avatar
Casrlos A.
Merci à tous.


"Daniel" wrote in message
news:
Bonjour.
ÚTE(2006;A1+1;0)-CHOISIR(JOURSEM(DATE(2006;A1+1;0));2;0;0;0;0;0;1)
pour un numéro de mois en A1; la formule ne tient pas compte des jours
fériés.
Cordialement.
Daniel
"Casrlos A." a écrit dans le message de news:
%
Bonjour

J'aimerais savoir s'il existe une function (ou une formule) qui me
permettra de calculer le dernier jour ouvrable d'un mois.

Merci c'avance.