Date

[Bcar]

Bonjour,
Existe-t-il une formule pour trouver la date du lundi d'une semaine donnée?
Merci par avance,
Bcar

 

[Staple1600]

Re : Date

Bonsoir


En attendant une formule...(qu'on devine dans cette fonction VBA)

Function DateLundi(Sem As Integer, Annee As Integer) As Date
'Retrouve la date suivant une semaine demandée
Dim X As Integer

'Trouve la position du lundi de la premiere semaine de l'année
'ensuite on le soustrait avec le nb de semaine converti en jour
X = (Sem * 7) - (Weekday("01/01/" & Annee, vbMonday) + 6)

'Decale le premier jour de l'annee avec la valeur qu'on a trouvé
DateLundi = DateAdd("d", X, "01/01/" & Annee)
End Function

source de la macro:ici

A+

Staple

 

[Staple1600]

Re : Date

Re

edit: en une seule formule (il ya surement plus court)

=(A4*7)-(JOURSEM(DATE(ANNEE(AUJOURDHUI());1;1);2)+6)+DATE(ANNEE(AUJOURDHUI());1;1)

Voici deux fichiers exemple
(avec formule issue de la fonction VBA précédente)

et d'autres formules

NB: Il faut activer l'Utilitaire d'analyse

Aller dans Macros/Macros complémentaires
et cocher Utilitaire d'analyse.





A+

Staple

 

[Bcar]

Re : Date

Bonsoir,
Merci beaucoup STAPLE la reponse me convient tout à fait.
Cordialement,
Bcar