OVH Cloud OVH Cloud

jour férié

4 réponses
Avatar
gilles P
Comment puis-je ramener comparer une date obtenue d'un=20
calcul, =E0 une liste de dates consid=E9r=E9es comme f=E9ri=E9es et=20
obtenir comme r=E9sultat final un jour ouvrable.?


ex: si un calcul me donne le 25 d=E9cembre (samedi), je veux=20
ramener le r=E9sultat au 23 d=E9cembre (ouvrable et non f=E9ri=E9).

4 réponses

Avatar
FxM
Comment puis-je ramener comparer une date obtenue d'un
calcul, à une liste de dates considérées comme fériées et
obtenir comme résultat final un jour ouvrable.?


ex: si un calcul me donne le 25 décembre (samedi), je veux
ramener le résultat au 23 décembre (ouvrable et non férié).


As-tu essayé en lui disant "Bonsoir madame la Date, voudriez-vous avoir
l'extrême obligence de bien vouloir vous diminuer jusqu'à un jour
ouvrable et non férié. Merci d'avance, madame la Date. Vous êtes fort
aimable" ?

@+
FxM

Avatar
Jacquouille
Que voilà une Excellente et toute chaude piste.
Reste à trauire cela en VBA, mais comme ce n'est pas mentionné dans la
question ....on ne va pas se décarcasser inutilement .

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"FxM" a écrit dans le message de
news:O7k$
Comment puis-je ramener comparer une date obtenue d'un
calcul, à une liste de dates considérées comme fériées et
obtenir comme résultat final un jour ouvrable.?


ex: si un calcul me donne le 25 décembre (samedi), je veux
ramener le résultat au 23 décembre (ouvrable et non férié).


As-tu essayé en lui disant "Bonsoir madame la Date, voudriez-vous avoir
l'extrême obligence de bien vouloir vous diminuer jusqu'à un jour
ouvrable et non férié. Merci d'avance, madame la Date. Vous êtes fort
aimable" ?

@+
FxM



Avatar
FxM
Que voilà une Excellente et toute chaude piste.
Reste à trauire cela en VBA, mais comme ce n'est pas mentionné dans la
question ....on ne va pas se décarcasser inutilement .



Ce qui suit semble marcher sur mon Excel 2000.

Public Function prev(dat, ferie)
tag:
yy = 0
For Each zz In ferie
'---
'Pour avoir cette ligne, il faudra sortir la vaseline.
'(voir les archives du groupe)
'---
Next zz
If yy <> 0 Then dat = dat - 1: GoTo tag
prev = dat
End Function

@+
FxM

Avatar
AV
ex: si un calcul me donne le 25 décembre (samedi), je veux
ramener le résultat au 23 décembre (ouvrable et non férié).


Bizarre....
Le vendredi n'est pas pour toi un jour ouvré ?
A supposer que tu te sois trompé, pout trouver le 1° jour ouvrable avant la date
(avec la plage nommée "jrF" contenant la liste des jours fériés) :

Matricielle :
=MAX(SI((JOURSEM(A1-LIGNE(INDIRECT("1:7"));2)<6)*(ESTNA(EQUIV(A1-LIGNE(INDIRECT(
"1:7"));jrF;0)));A1-LIGNE(INDIRECT("1:7"))))
Avec la macro complémentaire "Utilitaire d'analyse" installé :
=SERIE.JOUR.OUVRE(A1;-1;jrF)

Si tu veux vraiment exclure les vendredis :
Matricielle :
=MAX(SI((JOURSEM(A1-LIGNE(INDIRECT("1:7"));2)<5)*(ESTNA(EQUIV(A1-LIGNE(INDIRECT(
"1:7"));jrF;0)));A1-LIGNE(INDIRECT("1:7"))))

AV