soustraire 3 jours ouvrable à une date

[babyroots]

Bonjour je voudrais savoir comment je pourrais soustraire un certain nombre de jour ouvrable à une date.
Merci d'avance
@+++

 

[Claude38]

Re : soustraire 3 jours ouvrable à une date

Bonsoir,

Pour qu'ont puisse te répondre exactement s'agit-il de jours ouvrés ou de jours ouvrables.

Les jours ouvrés du Lundi au vendredi
Les jours ouvtables du Lundi au samedi

A+

 

[babyroots]

Re : soustraire 3 jours ouvrable à une date

Il sagit de jour ouvrés
Merci d'avance

 

[wilfried_42]

Re : soustraire 3 jours ouvrable à une date

bonjour babyroots, claude38

je m'infiltre sur le fil et je disparais

Attention aux jours feries

 

[mjo]

Re : soustraire 3 jours ouvrable à une date

Bonjour,

Emploie la fonction SERIE.JOUR.OUVRE.
Pour qu'elle soit opérationnelle il faut préalablement cocher l'Utilitaire d'Analyse sous les Macros complémentaires du menu Outils.

A titre d'exemple, avec des jours fériés (ou de congé, ...) :
En E1 : 12:12:06
Sélectionne cette cellule et nomme-la "fer" (sans les "") Menu Inserion - Nom - Définir
En A1 : 14:12:06
En A2 : =SERIE.JOUR.OUVRE(A1;-3;fer) te renverra 08:12:06

mjo

 

[babyroots]

Re : soustraire 3 jours ouvrable à une date

ca ne marche pas et en plus pourquoi la date est avec : et non pas /???

 

[mjo]

Re : soustraire 3 jours ouvrable à une date

Re,

J'étais pas bien réveillé !
Effectivement ce n'est pas 12:12:06 mais bien 12/12/06 ou 12.12.06 suivant ta configuration standard.

Petit exemple en pièce jointe.

mjo

 

[babyroots]

Re : soustraire 3 jours ouvrable à une date

merci beaucoup ca marche!!!
super cool

 

[C@thy]

Re : soustraire 3 jours ouvrable à une date

Bonjour le fil, le forum,

j'ai exactement le même problème... en VBA,

j'essaie d'afficher un Userform démarrant 3 jours ouvrés avant la date du jour.

J'ai déjà le calcul des fériés comme suit :

Public Sub CalendrierJrsFeriesAnneeInit(AnneeDuCal) 'Tableau Jours Fériés(Init pour une année)
ReDim CalendrierJrsFeriesAnnee(1 To 31, 1 To 12)
'calcul dimanche de Pâques (fonction anglophone 1900-9999)
Dim DatePaque As Date, DateAscension As Date, DatePentecote As Date
'A% = AnneeDuCal Mod 19: B% = AnneeDuCal \ 100: C% = AnneeDuCal Mod 100
'D% = (19 * A% + B% - (B% \ 4) - ((B% - ((B% + 8) \ 25) + 1) \ 3) + 15) Mod 30
'E% = (32 + 2 * ((B% Mod 4) + (C% \ 4)) - D% - (C% Mod 4)) Mod 7
'F% = (D% + E% - 7 * ((A% + 11 * D% + 22 * E%) \ 451) + 114)
'direct DatePaques = DateSerial(AnneeDuCal, F% \ 31, (F% Mod 31) + 1)
Golden% = (AnneeDuCal Mod 19) + 1: Century% = AnneeDuCal \ 100 + 1
LeapDayCorrection% = 3 * Century% \ 4 - 12
SynchWithMoon% = (8 * Century% + 5) \ 25 - 5
Sunday% = 5 * CLng(AnneeDuCal) \ 4 - LeapDayCorrection% - 10
Epact% = (11 * Golden% + 20 + SynchWithMoon% - LeapDayCorrection%) Mod 30
If Epact% < 0 Then Epact% = Epact% + 30
If Epact% = 24 Or (Epact% = 25 And Golden% > 11) Then Epact% = Epact% + 1
Jpaq% = 44 - Epact%: If Jpaq% < 21 Then Jpaq% = Jpaq% + 30
Jpaq% = Jpaq% + 7 - ((Sunday% + Jpaq%) Mod 7)
'direct > fnPAQUES = DateSerial(AnneeDuCal, 3, Jpaq%)
If Jpaq% > 31 Then MPaq% = 4: Jpaq% = Jpaq% - 31 Else MPaq% = 3
'Pâques / Ascension / Pentecôte
DatePaque = Jpaq% & " " & MPaq% & " " & AnneeDuCal
DateAscension = DatePaque + 39: DatePentecote = DatePaque + 49
Jasc% = Day(DateAscension): Masc% = Month(DateAscension)
Jpent% = Day(DatePentecote): Mpent% = Month(DatePentecote)
JLpaq% = Day(DatePaque + 1): MLpaq% = Month(DatePaque + 1)
JLpent% = Day(DatePentecote + 1): MLpent% = Month(DatePentecote + 1)
CalendrierJrsFeriesAnnee(1, 1) = "Nouvel an"
CalendrierJrsFeriesAnnee(1, 5) = "Fête du Travail"
CalendrierJrsFeriesAnnee(8, 5) = "Victoire 1945"
CalendrierJrsFeriesAnnee(14, 7) = "Fête Nationale"
CalendrierJrsFeriesAnnee(15, 8) = "Assomption"
CalendrierJrsFeriesAnnee(1, 11) = "Toussaint"
CalendrierJrsFeriesAnnee(11, 11) = "Armistice 1918"
CalendrierJrsFeriesAnnee(25, 12) = "Noël"
'deux jours fériés peuvent tomber le même jour Exp "1 Mai 2008" "Fête du Travail et Ascension"
CalendrierJrsFeriesAnnee(Jpaq%, MPaq%) = CalendrierJrsFeriesAnnee(Jpaq%, MPaq%) & " Pâque"
CalendrierJrsFeriesAnnee(JLpaq%, MLpaq%) = CalendrierJrsFeriesAnnee(JLpaq%, MLpaq%) & " Lund.Pâque"
CalendrierJrsFeriesAnnee(Jasc%, Masc%) = CalendrierJrsFeriesAnnee(Jasc%, Masc%) & " Ascension"
CalendrierJrsFeriesAnnee(Jpent%, Mpent%) = CalendrierJrsFeriesAnnee(Jpent%, Mpent%) & " Pentecôte"
CalendrierJrsFeriesAnnee(JLpent%, MLpent%) = CalendrierJrsFeriesAnnee(JLpent%, MLpent%) & " Lund.Pentecôte"
End Sub

Merci à vous

Bises

C@thy

 

[ChTi160]

Re : soustraire 3 jours ouvrable à une date

Bonjour C@thytu par
Bonjour le Fil
Bonjour le Forum

C@thy qu'entends tu ?
par :

J 'essaie d'afficher un Userform démarrant 3 jours ouvrés avant la date du jour

ne peux tu mettre un petit Fichier comme tu sais si bien le faire lol
Merci par avance
Amicalement
Jean Marie

 

[C@thy]

Re : soustraire 3 jours ouvrable à une date

Coucou le ch'ti,

Merci de ta réponse

Par exemple 3 jours ouvrés avant aujourd'hui ça
ne doit pas donner le 1er mai mais le 30 avril
Donc mon usf doit me proposer par défaut le 30/04 et je clique sur cette date
pour afficher un calendrier qui me proposera de cliquer sur le 2 et 3 mai, les autres étant invalidés

Mon problème c'est juste d'afficher par défaut dans mon 1er userform la date de J- 3 ouvrés,
le calendrier je m'en occupe

Merci et biz

C@thy

 

[ChTi160]

Re : soustraire 3 jours ouvrable à une date

Bonjour le fil
Bonjour C@thy
Bonjour le Forum

Ça a au moins le mérite d'être clair Lol
y a t'il un rapport avec ta précédente demande de Calendrier ?

https://www.excel-downloads.com/threads/creer-un-calendrier-dans-un-userform.184457/

j'y avais participé sans avoir de réponse d'ailleurs, si ce n'est de Bebere qui avait modifié mon fichier pour des questions de compatibilité de ListView LOL
mais je m'étais bien amusé .
Bonne journée
Amicalement
Jean Marie

 

[C@thy]

Re : soustraire 3 jours ouvrable à une date

Ouiiiiiiiiiiiii c'est exactement ça!!!

tu as raison, je n'avais pas répondu, rhôôôô pas bien,
sans doute parceque je pensais que ta réponse ne s'adressait pas directement à moi (je ne sais plus)
d'habitude je réponds toujours...

C'est vrai, on s'était bien amusés.

En fait, je viens de me rendre compte que dans le 1er USF c'est J- 1 jour ouvré qu'il me faut afficher,
et que dans le calendrier on peut aller jusqu'à J-3

je joins mon exemple.

Salutations du matin et bises,

C@thy

 

[ChTi160]

Re : soustraire 3 jours ouvrable à une date

Re
juste pour tenter de répondre à la première demande.
car pas compris cela "et que dans le calendrier on peut aller jusqu'à J-3"

Le fichier : Regarde la pièce jointe USFCalendrier(2).xls

Bonne journée
Amicalement
Jean Marie

 

[C@thy]

Re : soustraire 3 jours ouvrable à une date

Waooooo perfect!!!

exactement ce qu'il me fallait!!!

pour la 2ème partie, cela veut dire que je ne dois pouvoir cliquer que J-1 (ouvré) jusqu'à J-3 (ouvré)

MERCI, c'est SUPER!!!

Bizz

C@thy