Bonjour,
la formule d'un grand MVP Excel: (pondue en 2004 !!!)
Function NoSem(d As Date) As Long 'Laurent Longre 2004
' fonctionne suivant la norme ISO contrairement à no.semaine()
' ds la feuille : =ENT(MOD(ENT((A1-2)/7)+0.6;52+5/28))+1
Application.Volatile True
d = Int(d)
NoSem = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
NoSem = ((d - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) \ 7 + 1
End Function
P.