Calcul date -- Jours ouverts

[judikael]

Bonjour

J'ai besoin de calculer un écart entre 2 dates pour calculer des délais de traitement.

Je connais la formule nb.jours.ouvres mais elle ne prend que des semaines de 5 jours sans le samedi. Or, je peux avoir de la réception et du traitement le samedi.

Il me faudrait une formule qui calcule l'écart de date en comprenant donc les jours du lundi au samedi et en retirant bien sûr les jours fériés.

Je vous remercie par avance.

PP

 

[tototiti2008]

Re : Calcul date -- Jours ouverts

Bonjour judikael,

un essai (les dates de bornes sont comprises)

 

[judikael]

Re : Calcul date -- Jours ouverts

Bonjour judikael,

un essai (les dates de bornes sont comprises)

Merci beaucoup c'est excatement ce qu'il me fallait mais comment puis je faire pour étirer cette formule sur une colonne ou j'aurai une date de début et une date de fin sur chaque ligne et que le calcul se fasse ligne par ligne ?

Merci d'avance pour cette aide précieuse

 

[job75]

Re : Calcul date -- Jours ouverts

Bonjour judikael, salut tototiti,

Une solution VBA mais que je n'aime pas trop :

- nommer Feries la plage des dates des jours fériés

- touches Alt+F11 et entrer dans un Module cette fonction macro :

Function NbJours(deb As Date, fin As Date) As Long
Dim n As Long, d As Long
deb = Int(CDec(deb)) 'au cas où deb comprendrait des heures
NbJours = DateDiff("d", deb, fin)
For n = 1 To NbJours
 d = deb + n
 If Weekday(d) = 1 Or IsNumeric(Application.Match(d, [Feries], 0)) Then _
   NbJours = NbJours - 1
Next
End Function

- entrer en C2 cette formule, à tirer vers le bas :

=Nbjours(A2;B2)

A+

 

[tototiti2008]

Re : Calcul date -- Jours ouverts

Bonjour Job 🙂,
Re,

Pour étirer ma formule, il suffit de remplacer les noms DateDeb par B2 et DateFin par C2

 

[judikael]

Re : Calcul date -- Jours ouverts

merci beaucoup