Microsoft 365 VBA calcul de dates en jours ouvrés

Ikito

XLDnaute Occasionnel

• 22 Juillet 2019

• #2

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)

 

Vote positif 0 Vote négatif

mymyvba

XLDnaute Nouveau

• 22 Juillet 2019

• #3

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

 

Vote positif 0 Vote négatif

Ikito

XLDnaute Occasionnel

• 22 Juillet 2019

• #4

Re,

Pour la cellule D1 :

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2019

• #5

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juillet 2019

• #6

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

 

Pièces jointes

• mymyvba.xlsm

  12.8 KB · Affichages: 34

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 22 Juillet 2019

• #7

Bonjour,

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

A bientôt

 

Vote positif 0 Vote négatif

mymyvba

XLDnaute Nouveau

• 23 Juillet 2019

• #8

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

 

Vote positif 0 Vote négatif