Microsoft 365 Calcul de dates sans jours fériés, SAM et DIM

xamenod · 11 Février 2022

Bonjour à tous,
Je cherche depuis quelques jours à créer une macro permettant d'ajouter un certain nombre de jours, 8 en mode "normal et 2 en mode "express" à une date dans .
Le résultat obtenu serai la date finale sans prise en compte des jours fermés, samedi dimanche et jours fériés.
J'ai essayé, sur un autre fichier tout un tas de méthode trouvé sur le net, sans grand succès, ou alors avec des résultats incohérents.
Merci pour votre aide.
Bonne journée.
Henry.

Efgé · 11 Février 2022

Bonjour à toutes et à tous

VB:

Sub dateDecal()
Dim Rng As Range

Set Rng = Sheets("Feuil1").Range("$C$2:$C$" & Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row)

With Rng
    .FormulaLocal = "=SERIE.JOUR.OUVRE(A2;SI(B2=""Express"";2;8);$O$5:$O$16)"
    .Value = .Value
End With

End Sub

Il faudra revoir les dates de fériés qui sont surpremnantes dans l'exemple.

Cordialement

xamenod · 11 Février 2022

JHA à dit:
Bonjour à tous,

Si j'ai bien lu c'est 2 ou 8 jours après la date de départ.

JHA

Oui tout à fait, mode normal 8 et express 2.
Lolotte83 à répondu à mes attentes.
Merci JHA pour vous être penché sur le problème.
Je vous souhaite un bon week-end

Lolote83 · 11 Février 2022

Re bonjour à tous,
J'ai compris :
- NORMAL = 8 jours après la date de départ
- EXPRESS = 2 jours après la date de départ

Attends @xamenod avant de crier victoire, @JHA et moi ne tombons pas sur les mêmes résultats.

@+ Lolote83

xamenod · 11 Février 2022

Efgé à dit:
Bonjour à toutes et à tous

VB:

Sub dateDecal() Dim Rng As Range Set Rng = Sheets("Feuil1").Range("$C$2:$C$" & Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row) With Rng .FormulaLocal = "=SERIE.JOUR.OUVRE(A2;SI(B2=""Express"";2;8);$O$5:$O$16)" .Value = .Value End With End Sub

Il faudra revoir les dates de fériés qui sont surpremnantes dans l'exemple.

Cordialement

xamenod · 11 Février 2022

Lolote83 à dit:
Re bonjour à tous,
J'ai compris :
- NORMAL = 8 jours après la date de départ
- EXPRESS = 2 jours après la date de départ

Regarde la pièce jointe 1130567

Attends @xamenod avant de crier victoire, @JHA et moi ne tombons pas sur les mêmes résultats.

@+ Lolote83

D'accord, je vais prendre le temps de regarder ça de près. Merci pour votre investissement.
Henry

JHA · 11 Février 2022

Bonjour à tous,

As-tu jeté un oeil sur les lignes 27 à 41?

JHA

Lolote83 · 11 Février 2022

Re bonjour à tous,
@Efgé , tu as traduit en VBA la formule de @JHA ?
Car tu obtiens les mêmes résultats ? Je n'y comprends plus rien

As-tu jeté un oeil sur les lignes 27 à 41?

Je suppose que tu t'adresse à moi @JHA. Oui, j'ai bien regardé et j'ai compris ta démarche, mais mon calcul ne semble pas faux non plus !!!!! J'y comprends plus rien

@+ Lolote83

xamenod · 11 Février 2022

Bonjour Efgé,
merci pour votre retour, oui effectivement les dates pour l'exemple ont étés plus qu'approximativement choisies, désolé.

Efgé · 11 Février 2022

Re

Lolote83 à dit:
@EFGE, tu as traduit en VBA la formule de JHA ?

Oui, à peu près.
En fait, le code met une formule basée sur SERIE.JOUR.OUVRE dans la colonne C et écrase les formules pour ne laisser que leurs valeurs (le fameux .Value = .Value )

Cordialement

Lolote83 · 11 Février 2022

Re bonjour,
J'ai saisie la différence.
Au final,
- @JHA et @Efgé rajoutent 8 jours ouvrés à la date de départ (Comme expliqué par @JHA dans son dernier fichier (ligne 27 à 41)
- Je rajoute 8 jours consécutifs à la date de départ et teste cette nouvelle date. Si Samedi, Dimanche ou Jours fériés on rajoute x jours pour tomber sur une date correcte.

Dans tous les cas, la demande initiale demande + 8 jours ou + 2 jours (et pas en jours ouvrés)
J'en perds mon latin
Qui à juste au final ?
@+ Lolote83

Efgé · 11 Février 2022

Re
@Lolote83

Lolote83 à dit:
et pas en jours ouvrés

Si on ne compte pas en jour ouvrés, à quoi peux bien servir la liste des jours fériés ?

Cordialement

Lolote83 · 11 Février 2022

Re bonjour @Efgé ,
La liste des jours fériés est une liste que notre ami @xamenod ne souhaite pas. D'ou la présence de cette liste.
Mon analyse est donc la suivante:
Je prend la date de départ.
En fonction de NORMAL ou EXPRESS, je rajoute à cette date 8 ou 2 jours (consécutifs)
De la, une nouvelle date est donc calculée. A partir de cette nouvelle date, je regarde son jour de la semaine.
Si Samedi, je rajoute encore 2 jours (pour tomber sur le lundi suivant) car on ne doit pas avoir ni samedi, ni dimanche
Si Dimanche, je rajoute encore 1 jour (pour tomber sur le lundi suivant) car on ne doit pas avoir de dimanche.
De la, une nouvelle date est donc calculée. A partir de cette nouvelle date, je regarde si on tombe sur un jour férié.
Si Oui, on recommence au niveau des samedis ou dimanches etc etc etc
Voici ma réflexion, mais peut être que je me trompe
@+ Lolote83

Microsoft 365 Calcul de dates sans jours fériés, SAM et DIM

xamenod

XLDnaute Junior

Pièces jointes

Efgé

XLDnaute Barbatruc

xamenod

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

xamenod

XLDnaute Junior

xamenod

XLDnaute Junior

JHA

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

xamenod

XLDnaute Junior

Efgé

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Discussions similaires