Le dernier lundi

[xhudi69]

Bonjour le Forum et bon 1er Mai,

hélas je n'ai pas trouvé sur le forum la manière de déterminer le dernier lundi d'une année.
Cela me permettrais de mettre à jour automatiquement un planning de gantt. je vous mets en pièce jointe un bout de fichier, n'ayant pas d'exemple de macro, veuillez m'excuser pour le vide 😱

autre question, le dernier lundi d'une année fait-il obligatoirement partie de la dernière semaine ?

Un grand merci à vous tous.

 

[Compte Supprimé 979]

Re : Le dernier lundi

Salut xhudi69

Un petit code pour le calculer 😉

Private Sub CommandButton1_Click()
  Dim Annee As Integer
  Annee = Val(Me.TextBox1.Value)
  'Dernier Lundi d'une année choisie
  MsgBox Format(Evaluate("DATE(" & Annee + 1 & ",1,1)-WEEKDAY(DATE(" & Annee & ",12,31)-1)"), "dddd dd mmmm yyyy")

  With Sheets("feuil1")
    Range("G3").Value = TextBox1.Value
  End With
  Unload Me
End Sub

A+

 

[Victor21]

Re : Le dernier lundi

Bonjour.

En attendant plus simple, (l'année en A1) :

=SI(ANNEE(DATE(A1;12;31)-JOURSEM(DATE(A1;12;31))+2)=ANNEE(A1);DATE(A1;12;31)-JOURSEM(DATE(A1;12;31))+2;DATE(A1;12;31)-JOURSEM(DATE(A1;12;31))-5)

Anerie, oubliez ...😱

 

[JCGL]

Re : Le dernier lundi

Bonjour à tous,

Peux-tu tester :

=DATE(ANNEE(AUJOURDHUI());12;31)-JOURSEM(DATE(ANNEE(AUJOURDHUI());12;31);2)+1

A + à tous

Edition : Oups très à la bourre... Salut Bruno et Patrick

 

[xhudi69]

Re : Le dernier lundi

Re:
Bonjour, BRUNO, VICTOR et JCGL

merci à vous de vous être penchés, sans tomber 😉, sur mon petit problème, la formule de VICTOR me décale d'une semaine en arrière, la formule de JCGL est très bien, quand à la macro BRUNO, elle est parfaite.

reste la question philosophique de savoir si ce dernier lundi appartient obligatoirement à la dernière semaine de l'année? car si j'en crois ROGER 2327 il peut y avoir une 53 ème semaine.

encore merci.😎

 

[david84]

Re : Le dernier lundi

Bonjour à tous,

reste la question philosophique de savoir si ce dernier lundi appartient obligatoirement à la dernière semaine de l'année?

une simple recherche sur le Web te donne la réponse qui n'a rien de philosophique mais qui répond à une norme précise :

La semaine 53 est, d'après la norme ISO 8601, la cinquante-troisième et dernière semaine de l'année contenant un jeudi. Dès lors, une semaine débutant un lundi et s'achevant un dimanche, c'est également la cinquante-troisième et dernière à placer une majorité de ses sept jours dans l'année en question, soit précisément au moins quatre. Ce faisant, elle suit la semaine 52 de la même année et précède la semaine 1 de l'année suivante. Elle commence le 28e jour du mois de décembre et se termine au plus tard le 3e jour du mois suivant et de l'année suivante, une journée qu'elle contient systématiquement. Dans ce contexte, la semaine 53 est toujours la semaine du lundi 28 décembre au dimanche 3 janvier.

A+

 

[JCGL]

Re : Le dernier lundi

Bonjour à tous,

Je ne peux que te renvoyer à cet article.

A + à tous

Edition : Même combat (c'est le jour...) mon très cher David.

 

[xhudi69]

Re : Le dernier lundi

Re,
bonjour David,
effectivement, je n'ai pas assez cherché.
merci à vous tous et excellente journée.