Bonjour,
Ça commence mal
La semaine 1 de l'année 2016 commence le lundi 4 janvier 2016.
Le 5 janvier est le mardi de la semaine 1, impaire !
Et le 12 janvier est le mardi de la semaine 2, paire !
Grosse révision doctrinale à faire . La norme ISO 8601 n'est pas parvenue jusqu'à toi !
Une formule pour calculer le numéro de semaine (sans erreur pour toute date passée ou à venir) :
=ENT((A2-RECHERCHE(A2;DATE(ANNEE(A2)+{-1;0;1};1;3)-JOURSEM(DATE(ANNEE(A2)+{-1;0;1};1;3))+2))/7)+1
Une fonction personnalisée pour ce calcul :
Function NSEM(d As Date) As Integer
Dim dref
Application.Volatile
dref = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 3)
dref = dref - Weekday(dref) + 2
NSEM = (d - dref) \ 7 + 1
End Function
Cordialement.