Microsoft 365 Décaler une date au premier jour ouvré suivant si le résultat tombe un samedi, dimanche ou un jours férié

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
MelissaMrtl

MelissaMrtl

XLDnaute Nouveau
Bonjour,

Je voudrais faire une formule pour décaler ma date au premier jour ouvré suivant, si le résultat tombe un samedi, dimanche ou un jour férié.

Je dois faire un fichier de process avec des délais à respecter, par exemple me donner une date à +70 jours donc j'utilise soit ma date du jour en fonction du besoin soit une date plus lointaine :
- ="15/04/2025"+70 ==> 24/06/2025
OU
-=aujourdhui()+70 ==> 20/06/2025

Bon aucun résultat tombe sur un samedi dimanche ou un jour férié, mais imaginons que c'est tombé sur le 09/06/2025 qui est férié, comment je peux reporter la date au premier jour ouvré qui suit, soit par exemple dans ce cas au 10/06/2025 ?

Merci pour votre aide
 
Trier par date Trier par votes
Bonjour MelissaMrtl, et bienvenu sur XLD,
Comme un jour férié peut tomber un vendredi, il faut faire J, J+1,J+2 ou J+3.
Un essai en PJ avec :
VB: 
=SI(OU(JOURSEM(C5;2)>5;NB.SI(Férié;C5)>0);SI(OU(JOURSEM(C5+1;2)>5;NB.SI(Férié;C5+1)>0);SI(OU(JOURSEM(C5+2;2)>5;NB.SI(Férié;C5+2)>0);C5+3;C5+2);C5+1);C5)
Une feuille contient les jours fériés.
( à noter que le lundi de Pentecôte est férié ou non suivant les conventions de votre entreprise, donc il faut le conserver ou le supprimer )
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour MelissaMrtl et bienvenue sur XLD 😀,

Un petit classeur représentatif aurait été le bienvenu aussi😉comme la charte le recommande. Comme c'est votre première intervention sur XLD 😉, j'ai fait un petit classeur de démo.

Dans le classeur joint :
  • une feuille nommée "FeriesCol" qui liste les jours fériés de 2001 à 2082. Choisissez en cellule F1 si la liste des fériés inclut (VRAI) ou non (FAUX) les jours fériés en Alsace/Moselle. La liste des dates des jours fériés a aussi été nommée : FeriesCol
  • Dans la feuille "Feuil1" en colonne H, la formule : =SERIE.JOUR.OUVRE(F2-1;1;FeriesCol) qui donne le premier jour ouvrable.
nota : il y a aussi des jours fériées spécifiques à chaque tom-dom pas pris en compte dans la liste des jours fériés😟.

edit : Pas rafraichi donc pas vu tu avais répondu. J'en profite pour te saluer @sylvanu😃. Je l'avais oublié le cas de la Pentecôte. Dans ma boite, c'était non travaillé mais ça nous coûtait un jour de RTT (jour de RTT imposé par l'entreprise).

Remarque : d'aucuns disent que ma date de Pâques n'est pas correcte pour 2079. J'ai donc changé de formule pour le calcul du jour de Pâques (en fait je n'ai pas trouvé vraiment de démonstration pour montrer qu'une formule est juste ou non et si elle est juste alors jusqu'à quelle date) . J'en ai profité aussi pour ajouter la possibilité d'inclure ou non le lundi de Pentecôte.

Le fichier joint a donc été changé pour la version v2.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonsoir à toutes & à tous, donc aussi à @sylvanu , @mapomme , @MelissaMrtl

Je me suis posé un petit chalenge : intégrer dans la liste des jours fériés en donnant l'année de début et le nombre d'années à prendre en compte et en intégrant à la formule l'algorithme de Butcher-Meeus. Warf ! Warf ! (pourquoi faire simple ?)
La Formule n'est valable qu'avec les versions 2024 et 365 (pourquoi faire utilisable par tous ?)

On s'accroche :
VB: 
=LET(Nb;LIGNES(TS_Événements);
          A;_An_Début+TRONQUE(SEQUENCE(Nb*_Nb_An;;0)/Nb);
          Dt;INDEX(TS_Événements[Date];MOD(SEQUENCE(Nb*_Nb_An;;0);Nb)+1);
Pour_Butcher_Début;;
          n;MOD(A;19);
          c;ENT(A/100);
          u;MOD(A;100);
          s;ENT(c/4);
          t;MOD(c;4);
          p;ENT((c+8)/25);
          q;ENT((c-p+1)/3);
          e;MOD(19*n+c-s-q+15;30);
          b;ENT(u/4);
          d;MOD(u;4);
          l;MOD(32+2*t+2*b-e-d;7);
          h;ENT((n+11*2+22*l)/451);
          m;ENT((e+l-7*h+114)/31);
          j;MOD(e+l-7*h+114;31);
Pour_Butcher_Fin;;
         Pâques;SI((A>=1900)*(A<=9999);DATE(A;m;j)+1;"Hors domaine");
         Evt;INDEX(TS_Événements[Célébration];MOD(SEQUENCE(Nb*_Nb_An;1;0);Nb)+1);
         ListeDate;SI(Dt="";"";SI(ESTNUM(Dt);Pâques+CHOISIR(Dt;0;1;39;49;50;-2;-24);DATEVAL(Dt&" "&A)));
TRIER(FILTRE(ASSEMB.H(ListeDate;Evt);ListeDate<>"");1;))

Le résultat filtre les données vides et trie par ordre chronologique.
(il peut y avoir des données vides car copiant @mapomme , j'ai intégré des fêtes locales)
Le tableau structuré "TS_Événement" auquel se réfère la formule, liste toutes les fêtes sur une année en incluant les fêtes locales (mais leur date— Jour, Mois — n'est affichée que si la région concernée est cochée cf toujours @mapomme)

La cellule contenant la formule est baptisée "JoursFériés_Formule"
et le nom "JoursFériés" fait référence à la plage occupée par cette formule : JoursFériés_Formule#

On choisi l'année de départ et le nombre d'année et la liste suis automatiquement (chouettes les fonctions matricielles dynamique)

Maintenant que l'on a les jours fériés pour calculer la date arrivant après un certain délai, je vois 2 possibilités
(J'ai créé un TS avec une colonne Date_Début et Délai et 2 autres pour les 2 cas
  • On exclu du délai les week-ends et les jours fériés
    utilisation de =SERIE.JOUR.OUVRE([@[Date début]];[@Délai];INDEX(JoursFériés;;1))
  • On n'exclue pas les week-ends ni les jours fériés du délai
    utilisation de =SERIE.JOUR.OUVRE([@[Date début]]+[@Délai]-1;1;INDEX(JoursFériés;;1))
    dans ce dernier cas SERIE.JOUR.OUVRE avec -1 ;1 sert à traiter le dernier jour (férié ou non)
Voilà je joins le fichier.
À bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à toutes & à tous, bonjour @Jean-Eric

Oups ! une erreur dans le terme de correction "h" un deux au lieu d'un "e" ça rime mais pour le calcul ça ne le fait pas !
La formule devient :
Enrichi (BBcode): 
=LET(Nb;LIGNES(TS_Événements);
          A;_An_Début+TRONQUE(SEQUENCE(Nb*_Nb_An;;0)/Nb);
          Dt;INDEX(TS_Événements[Date];MOD(SEQUENCE(Nb*_Nb_An;;0);Nb)+1);
Pour_Butcher_Début;;
          n;MOD(A;19);
          c;ENT(A/100);
          u;MOD(A;100);
          s;ENT(c/4);
          t;MOD(c;4);
          p;ENT((c+8)/25);
          q;ENT((c-p+1)/3);
          e;MOD(19*n+c-s-q+15;30);
          b;ENT(u/4);
          d;MOD(u;4);
          l;MOD(32+2*t+2*b-e-d;7);
          h;ENT((n+11*e+22*l)/451);
          m;ENT((e+l-7*h+114)/31);
          j;MOD(e+l-7*h+114;31);
Pour_Butcher_Fin;;
         Pâques;SI((A>=1900)*(A<=9999);DATE(A;m;j)+1;"Hors domaine");
         Evt;INDEX(TS_Événements[Célébration];MOD(SEQUENCE(Nb*_Nb_An;1;0);Nb)+1);
         ListeDate;SI(Dt="";"";SI(ESTNUM(Dt);Pâques+CHOISIR(Dt;0;1;39;49;50;-2;-24);DATEVAL(Dt&" "&A)));
TRIER(FILTRE(ASSEMB.H(ListeDate;Evt);ListeDate<>"");1;))

Merci Jean-Eric pour ta vigilance
À bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
re,
Les formules simplifiée du calcul de Pâques ne sont pas valable pour l'éternité !
L'algorithme, lui, de Butcher est réputé sans erreur (sauf si on écrit mal la formule 😉).
Enfin c'est sans compter sur les potentielles variations du comportement de la lune sur des grandes périodes. Le mois lunaire devrait quand même s'allonger d'une quarantaine de minutes d'ici 1 million d'année ! (Dixit ChatGPT) :
1744466278820.png

Quant à l'année terrestre, elle aura perdu 1 seconde !
Mais d'ici là je ne sais pas si Pâques sera toujours fêté.


À bientôt
 
Vote positif 0 Vote négatif
Bonjour le fil

Histoire d'occuper mon après-midi dans VBA et PQ
1) macro VBA pour créer le jeu de données pour la requête PQ
VB: 
Sub CREATION_TABLEAU_pour_PQ()
'A ne lancer qu'une fois
Dim r As Range
With ActiveSheet
    Set r = .Range("A2:A1177")
    .[A1] = "ANNEES": .[A2] = 2025: .[A3] = 2026: r.DataSeries: .ListObjects.Add(1, r.Offset(-1).Resize(1177), , 1).Name = "COL_ANS"
End With
End Sub
2) La requête PQ qui utilise l'algorithme de Gauss
PowerQuery: 
et
    ETAPE_I = Table.AddColumn(Excel.CurrentWorkbook(){[Name="COL_ANS"]}[Content], "Date de Pâques", each
        let
            Year = [ANNEES],
            a = Number.Mod(Year, 19),
            b = Number.IntegerDivide(Year, 100),
            c = Number.Mod(Year, 100),
            d = Number.IntegerDivide(b, 4),
            e = Number.Mod(b, 4),
            f = Number.IntegerDivide(b + 8, 25),
            g = Number.IntegerDivide(b - f + 1, 3),
            h = Number.Mod(19 * a + b - d - g + 15, 30),
            i = Number.IntegerDivide(c, 4),
            k = Number.Mod(c, 4),
            l = Number.Mod(32 + 2 * e + 2 * i - h - k, 7),
            m = Number.IntegerDivide(a + 11 * h + 22 * l, 451),
            Month = Number.IntegerDivide(h + l - 7 * m + 114, 31),
            Day = Number.Mod(h + l - 7 * m + 114, 31) + 1
        in
            #date(Year, Month, Day)
    ),
    RESULTAT = Table.TransformColumnTypes(ETAPE_I,{{"Date de Pâques", type date}})
in
  RESULTAT
Apparemment la date de Pâques en 3200 est bonne 😉
(je ne sais pas ce qui m'a poussé à vérifier cette année en particular ?
Peut-être l'espoir qu'en 3200, XLD sera toujours en ligne ! 😉
source de vérification

Maintenant la question est : fallait-il que je le sache qu'en 3200, Pâques sera le 26 mars 😉
 
Vote positif 0 Vote négatif
Re

@AtTheOne
Tout ce que je sais que je suis en congés la semaine qui suit Pâques 2025
Bon bah , je retourne dans PQ et dans les Saintes-Ecritures 😉

PS: Au fait les dates renvoyées par PQ sont bonnes ou pas ?

Dans ce cas, j'aurais juste à éditer mon précédent message, alors 😉
 
Vote positif 0 Vote négatif
Re

@Cousinhub
J'aurais du lire ton message avant @Cousinhub
Mais non , je me suis fait plaisir dans PQ pendant que ma soupe à l'oignon cuisant à feu doux 😉
PowerQuery: 
let
    Source = Excel.CurrentWorkbook(){[Name="COL_ANS"]}[Content],
    COL_BUTCH = Table.AddColumn(Source, "Date de Pâques (Butcher)", each 
        let
            Year = [ANNEES],
            a = Number.Mod(Year, 19),
            b = Number.IntegerDivide(Year, 100),
            c = Number.Mod(Year, 100),
            d = Number.IntegerDivide(b, 4),
            e = Number.Mod(b, 4),
            f = Number.IntegerDivide(b + 8, 25),
            g = Number.IntegerDivide(b - f + 1, 3),
            h = Number.Mod(19 * a + b - d - g + 15, 30),
            i = Number.IntegerDivide(c, 4),
            k = Number.Mod(c, 4),
            l = Number.Mod(32 + 2 * e + 2 * i - h - k, 7),
            m = Number.IntegerDivide(a + 11 * h + 22 * l, 451),
            Month = Number.IntegerDivide(h + l - 7 * m + 114, 31),
            Day = Number.Mod(h + l - 7 * m + 114, 31) + 1
        in
            #date(Year, Month, Day)
    ),
    COL_GAUSS = Table.AddColumn(COL_BUTCH, "Date de Pâques (Gauss)", each 
        let
            annee = [ANNEES],
            a = Number.Mod(annee, 19),
            b = Number.Mod(annee, 4),
            c = Number.Mod(annee, 7),
            k = Number.IntegerDivide(annee, 100),
            p = Number.IntegerDivide(13 + 8 * k, 25),
            q = Number.IntegerDivide(k, 4),
            M = Number.Mod(15 - p + k - q, 30),
            N = Number.Mod(4 + k - q, 7),
            d = Number.Mod(19 * a + M, 30),
            e = Number.Mod(2 * b + 4 * c + 6 * d + N, 7),
            mars = 22 + d + e,
            datePaques = if mars <= 31 then 
                             #date(annee, 3, mars) 
                         else 
                             #date(annee, 4, mars - 31)
        in
            datePaques
    ),
    FIN_B = Table.TransformColumnTypes(COL_GAUSS, {{"Date de Pâques (Butcher)", type date}}),
    FIN_G= Table.TransformColumnTypes(FIN_B, {{"Date de Pâques (Gauss)", type date}}),
    FIN = FIN_G,
    COMPARAISON = Table.AddColumn(FIN, "COMPARAISON", each if [#"Date de Pâques (Butcher)"] = [#"Date de Pâques (Gauss)"] then "OK" else "PAS OK"),
    FILTRAGE = Table.SelectRows(COMPARAISON, each ([COMPARAISON] = "PAS OK"))
in
    FILTRAGE
On trouve douze différences entre les deux algorithmes.

A+ pour de nouvelles aventures Exceliennes 😉 (et joyeuses Pâques 2025 à ceux qui les célèbrent 😉 )
 
Vote positif 0 Vote négatif
Bonjour à tous😉,

Je me suis, semble-t-il, planté sur la date de Pâques 2079. C'est loin.

La seule chose sûre que je sais, c'est qu'en 2079, je serai depuis longtemps à six pieds sous terre et que mes os auront été blanchis non pas par l'action du soleil mais par la voracité des petits vers, asticots, moisissures et autres petites bestioles visibles ou non dont je ne veux en aucune façon imaginer la forme, la couleur et le bruit dissonant et grinçant de leurs mandibules.

J'avais pensé arrêter mon calendrier des fériés à l'année 2047 (solution simple, rapide et astucieuse). Ainsi, plus de problème et en plus le fichier aurait été allégé.

Mais craignant par cette manœuvre fallacieuse d'être soumis à la vindicte des cadors de XLD et clouer au pilori pour y être sauvagement lapidé, j'ai préféré changer de formule pour les jours fériés🤪. J'en ai profité pour y ajouter la possibilité de considérer ou pas le lundi de Pentecôte comme un jour férié.

Aller sur le message d'origine pour le classeur v2.
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

chris6999
  • Question Question
Microsoft 365 MACRO Remplacer date si jour non ouvré remplace par jour ouvré précédent
Réponses
7
Affichages
654
sylvanu
sylvanu
T
  • Question Question
XL 2016 Ajouter Date : si résultat un DIM, +1J
Réponses
5
Affichages
369
tuti
T
S
  • Résolu(e)
Microsoft 365 planning - griser samedi dimanche + mettre en surbrillance une date
Réponses
3
Affichages
1 K
Sofia32
S
G
  • Question Question
Microsoft 365 Formule pour calculer délai de 10 jours, en excluant samedis, dimanches et les jours férié
Réponses
7
Affichages
861
GILBERTO BRAGA
G
J
  • Question Question
Microsoft 365 Décaler une date si férié sur un lundi.
Réponses
9
Affichages
852
JHA
J
oguruma
POWERQUERY :: LES DATES REMARQUABLES
Réponses
5
Affichages
148
oguruma
oguruma
JoBar57
  • Résolu(e)
XL 2021 SI OU ET - rajouter une condition supplémentaire
2
Réponses
26
Affichages
2 K
JoBar57
JoBar57
A
  • Question Question
Microsoft 365 repousser de 1 jours les dates qui tombent le dimanche
Réponses
1
Affichages
803
mapomme
mapomme
K
  • Résolu(e)
Microsoft 365 Excel - férié, décalé les entretiens au jour ouvré avant le jour férié.
Réponses
14
Affichages
1 K
job75
job75
G
  • Résolu(e)
Microsoft 365 Deux jours avant dimanche ou jour férié
Réponses
9
Affichages
1 K
GILBERTO BRAGA
G
T
  • Question Question
XL 2010 création d'un planning et retroplanning pour une procédure
Réponses
4
Affichages
2 K
micheldu52
micheldu52
T
  • Question Question
XL 2019 Décalage de date si week-end ou jours fériés
Réponses
2
Affichages
1 K
tiph36
T
N
  • Question Question
XL 2016 Calcul Heures
Réponses
6
Affichages
1 K
TooFatBoy
TooFatBoy
B
  • Résolu(e)
XL 2016 Interdire d'entrer une date férié ou un week-end dans une colonne
Réponses
6
Affichages
1 K
babacool22
B
K
  • Question Question
Autres Création d'un calendrier de procédure
Réponses
6
Affichages
3 K
Deadpool_CC
Deadpool_CC
D
  • Question Question
XL 2013 Décaler fériés et fins de semaine
2
Réponses
24
Affichages
3 K
AtTheOne
AtTheOne
counterbob
  • Question Question
XL 2016 Ajuster une date si samedi, dimanche ou jour férié
Réponses
2
Affichages
2 K
counterbob
counterbob
P
  • Résolu(e)
XL 2019 Décaler un texte si la date tombe sur le weekend
Réponses
13
Affichages
2 K
patrick3267
P
corsu2a
  • Question Question
XL 2016 Décompte bloc de jour travaillé
2 3
Réponses
32
Affichages
4 K
corsu2a
corsu2a
L
  • Question Question
Microsoft 365 Décaler une date d'un jour ouvrable si samedi, dimanche ou JF
Réponses
6
Affichages
9 K
Looxy
L
Retour