retourner date xème jour de la semaine du xème mois de l'année en cours

rcan7412

XLDnaute Occasionnel
Bonjour,

Comment par formule retourner la date qui correspond au xème jour de la semaine du xème mois de l'année en cours ?

Par exemple, chaque année je dois déterminer le 1er vendredi de mai. Si possible en évitant les jours fériés.

Cette année ce sera le 04/05/2012, l'an prochain ce sera le 03/05/2013.....

Je cherche sans trouver :mad:

Merci pour toute piste
 
Dernière édition:

pierrejean

XLDnaute Barbatruc
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Bonjour rcan7412

Avec une fonction personnalisée

Edit : Salut JHA
 

Pièces jointes

  • premier_vendredi_mai.xls
    32 KB · Affichages: 80
  • premier_vendredi_mai.xls
    32 KB · Affichages: 79
  • premier_vendredi_mai.xls
    32 KB · Affichages: 80

rcan7412

XLDnaute Occasionnel
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Merci à vous 2.

Pour la formule de JHA, en essayant pour 2011, il me retourne le 29/04/2011

=(TEXTE("1/5/2011";"m/aaa")-MOD(TEXTE("1/5/2011";"m/aaa")-3;7)+3)

Quid ?

Pour la solution de Pierrejean avec la fonction perso, je ne comprends pas le ELSE ?

Code:
Function premier_vendredi_mai(an)
For n = 1 To 7
 If Weekday(CDate(n & "/05/" & an)) = 6 Then
   If n <> 1 Then
     premier_vendredi_mai = CDate(n & "/05/" & an)
   Else
     premier_vendredi_mai = CDate("15/05/" & an)
   End If
 End If
Next
End Function

Il donne :
04/05/2012
03/05/2013
02/05/2014
15/05/2015
06/05/2016
05/05/2017
04/05/2018
03/05/2019
15/05/2020
07/05/2021
06/05/2022
05/05/2023
03/05/2024
02/05/2025
15/05/2026

????
 

pierrejean

XLDnaute Barbatruc
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Re

Il me semble que tu as souhaité eviter les jours fériés !!!
Or le 1er Mai et le 8 Mai le sont
Par consequent si le 1er Mai est un Vendredi le 8 Mai egalement et dans ce cas le 1er vendredi de Mai non férié est le 15
 

JCGL

XLDnaute Barbatruc
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Bonjour à tous,
Salut JHA,
Salut PJ ;),

Un essai par formules et formule nommée :

Code:
=SI(MOIS(A12)<>MOIS(A12-MOD(A12+5;7)+(7*Data!$F$1)-RECHERCHEV(Data!$G$1;Data;2;0));A12-MOD(A12+5;7)+(7*Data!$F$1)-RECHERCHEV(Data!$G$1;Data;2;0)+7;A12-MOD(A12+5;7)+((7*Data!$F$1)-RECHERCHEV(Data!$G$1;Data;2;0)))
Code:
=SI(MOIS(A12)<>MOIS(A12-MOD(A12+5;7)+Formule);A12-MOD(A12+5;7)+Formule+7;A12-MOD(A12+5;7)+(Formule))
Code:
=(7*Data!$F$1)-RECHERCHEV(Data!$G$1;Data;2;0)

A + à tous
 

Pièces jointes

  • JC Rang Jour Mois.xls
    55 KB · Affichages: 118

rcan7412

XLDnaute Occasionnel
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Re

Il me semble que tu as souhaité eviter les jours fériés !!!
Or le 1er Mai et le 8 Mai le sont
Par consequent si le 1er Mai est un Vendredi le 8 Mai egalement et dans ce cas le 1er vendredi de Mai non férié est le 15

C'est vrai mais j'ai oublié de dire qu'il devait s'agir du prochain jour ouvrable, ce qui rend l'exercice plus compliqué, non ?

D'autant que le 08/05 n'est pas férié en Belgique :confused:...
 
Dernière édition:

rcan7412

XLDnaute Occasionnel
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

J'ai trouvé ceci, voir annexe. Ca a l'air de fonctionner.
Le seul souci, c'est qu'il ne gère pas les jours fériés.... et belges....
 

Pièces jointes

  • XemeJourSemaineXemeMois.xlsx
    8.7 KB · Affichages: 77
  • XemeJourSemaineXemeMois.xlsx
    8.7 KB · Affichages: 78
  • XemeJourSemaineXemeMois.xlsx
    8.7 KB · Affichages: 74

rcan7412

XLDnaute Occasionnel
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Voilà je pense avoir trouvé pour les jours fériés.

En résumé, il s'agit de trouver le xème jour de semaine d'un mois et d'une année choisie.
Si ce jour est férié, xl doit retourner le premier jour ouvrable qui suit celui-ci.
Par exemple, je souhaite avoir le 2 mardi du mois de mai de chaque année.

Dans le document xl annexé, il reprend les jours fériés pour la France.
Pour la Belgique, il suffit de retirer le 8 mai et de modifier le 14/07 en 21/07.
 

Pièces jointes

  • XemeJourSemaineXemeMois.xlsx
    10.6 KB · Affichages: 69
  • XemeJourSemaineXemeMois.xlsx
    10.6 KB · Affichages: 74
  • XemeJourSemaineXemeMois.xlsx
    10.6 KB · Affichages: 66

pierrejean

XLDnaute Barbatruc
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Re

Un essai un peu plus complet
NB: Je regarde pour integrer les fêtes religieuses variables pendant que vous testez
 

Pièces jointes

  • premier_vendredi_mai.xls
    41 KB · Affichages: 58
  • premier_vendredi_mai.xls
    41 KB · Affichages: 63
  • premier_vendredi_mai.xls
    41 KB · Affichages: 63

rcan7412

XLDnaute Occasionnel
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Merci Pierrejean,

L'idéal serait de pouvoir choisir le numéro de la semaine d'un mois à choisir (1,2,3,4ème semaine) et de l'année à choisir également + tenir compte de la volatilité des dates de certains jours fériés.
 

JCGL

XLDnaute Barbatruc
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Bonjour à tous

Avec un décalage de 1 si le jour est férié...

Cette réponse passera surement inaperçue pour le demandeur mais pourra servir à d'autres.

A+ à tous
 

Pièces jointes

  • JC Rang Jour Mois Fer.xls
    57 KB · Affichages: 73

JCGL

XLDnaute Barbatruc
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Bonjour à tous,

BONJOUR A TOI AUSSI...

C'est bien ce que je disais décalage d'un jour si le jour tombe un férié...

A + à tous
 

pierrejean

XLDnaute Barbatruc
Re : retourner date xème jour de la semaine du xème mois de l'année en cours

Re

On souhaiterait
1) un peu plus de consideration
2) des resultats de test
3) L'enoncé du problème des le debut du fil
Voila une version qui à priori devrait prendre en compte les jours fériés Belges et les week End
Pendant que tu testes (prepare un jeu d'essai) j'essaie de tenir compte de ta dernière demande

Une Fois
 

Pièces jointes

  • premier_vendredi_mai.xls
    45 KB · Affichages: 103
  • premier_vendredi_mai.xls
    45 KB · Affichages: 105
  • premier_vendredi_mai.xls
    45 KB · Affichages: 100

Discussions similaires

Statistiques des forums

Discussions
313 769
Messages
2 102 234
Membres
108 181
dernier inscrit
Chr1sD