Microsoft 365 VBA calcul de dates en jours ouvrés

[mymyvba]

Bonjour, je fais actuellement une macro pour établir un rétro planning. J'aimerai avoir le code me permettant de calculer la date de fin lorsque j'additionne mon nombre de jour ouvré avec une date de départ:

Ex :
A1 : "étude de faisabilité du projet"
B1 : 5 (jours ouvrés)
C1 : 10/09/2019 (date de départ)
D1 : B1 + C1 (date de fin en jours ouvrés)

Merci

MymyVBA

 

[Ikito]

Bonjour,

En D1 : =SERIE.JOUR.OUVRE(C1;B1)
Avec éventuelle plage de jours fériés du nom de "plage"
En D1 : =SERIE.JOUR.OUVRE(C1;B1;plage)

 

[mymyvba]

Merci beaucoup, est-il possible de le faire en code VBA ?

 

[Ikito]

Re,

Pour la cellule D1 :

Cells(1,"D").FormulaR1C1 = "=WORKDAY(RC[-1],RC[-2])"

 

[Staple1600]

Bonjour le fil


Voir la fonction: SERIE.JOUR.OUVRE
(lien pour les détails)

EDITION: Houps désolé, pas rafraichi à temps
Je n'avais pas vu la réponse de Ikito.

 

[pierrejean]

A tester
NB: il est aussi possible d'integrer des jours fériés

 

[Hasco]

Bonjour,

En vba sans passer par des cellules: application.WORKDAY(Date1,NombreJours,PlageFériés)

A bientôt

 

[mymyvba]

Merci à vous tous, j'ai effectivement utilisé le workday