macro jour ouvré

[C@thy]

Bonjour le forum,

je souhaiterais ajouter n jours à une date, hors we et fériés.

Le fichier joint donne un exemple avec un userform.

Actuellement ma macro rajoute n jours, ce qu'il me manque c'est le test si we ou férié ne pas compter ces jours.

Pourriez-vous m'aider je vous prie?

Merci à vous et bises à tutti

C@thy

 

[job75]

Re : macro jour ouvré

Bonjour C@thy,

Ton fichier en retour.

1) Avec Application.Match il faut veiller à ce que les dates, et donc aussi celles des jours fériés, soient converties par CLng (ou Cdbl).

2) Le 24/12/2014 était un mercredi !!!

Edit : en outre tu déclarais Public Ladate et de nouveau dans la procédure !

A+

 

[C@thy]

Re : macro jour ouvré

Merci Gérard, c'est absolument parfait, comme d'hab...

(Je parlais du 24/12/2015 pas 2014...)

Bises

C@thy

 

[job75]

Re : macro jour ouvré

(Je parlais du 24/12/2015 pas 2014...)

Ah mais oui, j'ai du mal à changer d'année

 

[C@thy]

Re : macro jour ouvré

Oups!

Y'a un petit schmoll...
j'ai dû mal m'exprimer

si en date de début j'ai aujourd'hui 4 février et que je rajoute 10 ça devrait donner le 18/2, les we et fériés ne comptant pas...

C@thy

 

[job75]

Re : macro jour ouvré

Re,

Si l'incrémentation en TextBox2 ne doit compter que les jours ouvrés il faut modifier la fonction :

Function GetDateOuvrée(ByVal d As Long, Fériés As Variant, Optional incr As Integer = 1)
Dim n As Integer
Do
  d = d + 1
  If IsError(Application.Match(d, Fériés, 0)) And Weekday(d, 2) < 6 Then n = n + 1
Loop While n < incr
GetDateOuvrée = d
End Function

Edit : CLng(d) n'est pas nécessaire puisque d est déclarée As Long.

Fichier (2).

PS : j'ai parlé du 24/12/2014 car c'est cette date que tu avais mise dans ta macro Test1

A+

 

[C@thy]

Re : macro jour ouvré

Vi, c'est vrai... mais c'était un test bidon...j'ai d'abord essayé 2015 puis 2014 pour voir si ça marchait... car 2015 ça marchait pas... oili oilà..

C@thy