patricktoulon
XLDnaute Barbatruc
une autre dans le même genre
le lundi d'une semaine X d'une année(vba/formule)
formule:
exemple
le lundi de la semaine 23
le lundi d'une semaine X d'une année(vba/formule)
VB:
Function MondayOffWeek(annee&, Lweek&)
Dim D As Date, WekD&
D = CDate("01/01/" & annee)
WekD = Weekday(D, vbUseSystemDayOfWeek)
D = D + Lweek * 7 - IIf(WekD <> 1, WekD - 1, 0)
MondayOffWeek = D
End Function
Sub testx()
MsgBox Format(MondayOffWeek(2021, 1), "dddd dd mm yyyy")
MsgBox Format(MondayOffWeek(2021, 23), "dddd dd mm yyyy")
MsgBox Format(MondayOffWeek(2021, 52), "dddd dd mm yyyy")
End Sub
formule:
=MondayOffWeek(année, Nieme semaine )
exemple
le lundi de la semaine 23
=MondayOffWeek(2021, 23)