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

[xamenod]

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.

 

[Compte Supprimé 979]

Bonjour xamenod

Pourquoi vouloir utiliser une macro

La formule toute simple

=A2+SI(B2="NORMAL";8;2)

A+

 

[xamenod]

Bonjour xamenod

Pourquoi vouloir utiliser une macro

La formule toute simple

=A2+SI(B2="NORMAL";8;2)

A+

Bonjour Bruno,
merci pour votre retour.
la macro est nécessaire car le résultat de la formule est "absorbée" dans un outil en ligne, or c'est la formule qui remonte et non le résultat, d’où la macro. De plus la quantité de ligne varie d'un projet à l'autre. Le document sur lequel est installé la macro est une matrice qui permet de en la renommant un fichier de travail qui sert de support à l'outil en ligne.
Henry.

 

[Lolote83]

Bonjour à tous,
J'y réfléchi mais dans ton fichier, un lundi de pâques qui tombe un samedi, un lundi de pentecôte qui tombe également un samedi et un dimanche de pâques qui tombe un vendredi, je n'avais jamais vu.
Donc si vous voulez travailler sur des dates, il faudrait en premier lieu avoir initialement des dates "cohérentes" aussi.

Hors mis cet aparté, une fois que la macro aura calculé la date résultat, comment la macro doit-elle analyser ce résultat.

Le résultat obtenu serai la date finale sans prise en compte des jours fermés, samedi dimanche et jours fériés.

Si le calcul donne un samedi, quel résultat final doit on afficher ?
Idem pour un dimanche ou jours fériés.
Qu'appelez vous les jours fermés ?

Quelques éclaircissements seront necessaires


@+ Lolote83

 

[xamenod]

Bonjour Lolotte83,
pardon, je me suis un peu emballé sur le choix des dates d'exemple, je l'ai fait à la volée sans regarder le calendrier.
On jour fermé est un jour non travaillé, du moins les personnes à qui s'adresse le document final.
J'ai essayé d'interprété la macro comme suit:
date intermédiaire = date de début + le nombre de jour ouvrés en fonction du critère
calcul du nombre de jours fériés + samedi + dimanche
date totale = date intermédiaire + le nombre de jours off, pour obtenir le délais de 8 jours ouvrés.
si je prends l'exemple du 12 juillet, avec un délai normal le travail doit être rendu + 8 jours ce qui nous donnerait le 22 juillet.
Si le résultat tombe un samedi ou un dimanche la date attendue est alors le lundi suivant, s'il n'est pas férié...
j'espère avoir été plus clair dans mes explications.

 

[JHA]

Bonjour à tous,

par formule

=SERIE.JOUR.OUVRE($A2;INDEX($L$4:$L$5;EQUIV($B2;$K$4:$K$5;0));Feries)

JHA

 

[Lolote83]

Re bonjour,
Voici donc la fichier en retour.
Un tableau des jours fériés en fonction d'une année est présent (calcul automatique en fct de l'année)
Une fonction personnalisée (VBA) est faite en fonction de la date de départ et du mode.
- Si le résultat tombe un samedi alors on rajoute encore 2 jours supplémentaires pour ne pas tomber sur un dimanche
- Si le résultat tombe un dimanche alors on rajoute encore 1 jour supplémentaire
- Si le résultat tombe un jour férié, on recommence le calcul
@+ Lolote83

 

[Lolote83]

Re bonjour,
@JHA, j'ai repris tes dates et je ne tombe pas sur les mêmes résultats ????
Ou ais-je fait une erreur ?
@+ Lolote83

 

[xamenod]

Re bonjour,
Voici donc la fichier en retour.
Un tableau des jours fériés en fonction d'une année est présent (calcul automatique en fct de l'année)
Une fonction personnalisée (VBA) est faite en fonction de la date de départ et du mode.
- Si le résultat tombe un samedi alors on rajoute encore 2 jours supplémentaires pour ne pas tomber sur un dimanche
- Si le résultat tombe un dimanche alors on rajoute encore 1 jour supplémentaire
- Si le résultat tombe un jour férié, on recommence le calcul
@+ Lolote83

Merci Lolotte83 pour, ce fichier, mais...
j'avais effectué mes premiers tests avec de formules simples, voir associées avec des fonctions.
Le problème vient du fait que l'outil en ligne (en html) qui "absorbe" les résultats, ne reconnais pas la date et importe la formule contenue dans la cellule.

 

[xamenod]

Bonjour à tous,

par formule

=SERIE.JOUR.OUVRE($A2;INDEX($L$4:$L$5;EQUIV($B2;$K$4:$K$5;0));Feries)

JHA

Bonjour JHA, merci pour votre retour, mais mon problème vient du fait que lors de l'export des donées vers un outil centralisateur, la formule remonte dans ledit outil et pas son résultat, d’où l'option des macros.

 

[Lolote83]

Re bonjour,
Voici donc le fichier V2 qui inscrit en dur les dates résultats (colonne G)
A voir maintenant si les calculs sont OK car j'ai des différences avec @JHA (que je salue au passage)
@+ Lolote83

 

[JHA]

Bonjour Lolote83,

Désolé, je ne peux pas t'aider sur le code.

J'ai vérifié la formule, elle semble correcte, peut-être sais-tu la mettre en VBA.

JHA

 

[Lolote83]

Re bonjour JHA,
Si on part du principe que le mode est NORMAL (donc +8 jours) et que l'on rajoute 8 jours au mardi 12/07/22 on tombe bien sur mercredi 20/07/22 (qui n'est pas un samedi, un dimanche et non plus un jour férié) ????
Idem pour le jeudi 28/04/22 (NORMAL donc + 8 jours) donc on tombe sur le vendredi 06/05/22 (qui n'est pas un samedi, un dimanche et non plus un jour férié) ????
De ton coté, pour ces deux dates, tu as une différence de 13 jours ?????
C'est mon avis.
@+ Lolote83

 

[JHA]

Bonjour à tous,

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

JHA

 

[xamenod]

Re bonjour,
Voici donc le fichier V2 qui inscrit en dur les dates résultats (colonne G)
A voir maintenant si les calculs sont OK car j'ai des différences avec @JHA (que je salue au passage)
@+ Lolote83

C'est génial Lolotte, merci mille fois. Très bon week-end.