N° de semaine et jour

Question

Bonjour

Tout d'bord une bonne année à tous les experts ... et un grand merci pour votre dévouement.

Quelle sont les instructions pour connaitre le 1er jour d'une semaine à partir du N° de semaine

• en VBA
• en formule de surface

Exemple :

Si je tape 2 (pour semaine 2) - je voudrais obtenir 10 janvier 22

Merci

Steeve

Answer 1

Oui, Excel a été développé par des équipes américaines et par défaut, ils utilisent les formats... américains. Mais si tu regardes l'aide pour la fonction JOURSEM, tu verras qu'on a (maintenant) beaucoup de latitude dans le choix de la numérotation. En reprenant ton exemple, pour obtenir le jour ISO, il faut écrire JOURSEM(B13;2) ce qui donne la valeur 6.

D'ailleurs, on peut en profiter pour revenir sur la formule donnée par Daniel précédemment.

Par définition, on sait que le 4 janvier est obligatoirement dans la semaine 1. Par exemple, cette année, c'était un mardi, soit le jour 2 en numérotation ISO. Pour déterminer quel est le lundi de la première semaine, on peut donc retrancher 1 jour (2-1) au 4 janvier et obtenir comme résultat le 3 janvier. Ce qu'on traduira ainsi :

=DATE(2022;1;4)-(JOURSEM(DATE(2022;1;4);2)-1)

C'est la formulation complète, totalement ISO, mais un peu lourde...

Pour "alléger" l'écriture, on peut repasser au format US de JOURSEM (mais pour en rectifier l'effet, on prend le 3 du coup) et on affecte directement le correctif -1 à la date de départ, qui devient pour le coup le 5 janvier :

=DATE(2022;1;5)-JOURSEM(DATE(2022;1;3))

On obtient donc le même résultat, même si cette fois l'orthodoxie ISO n'est pas évidente.

Reste alors à ajouter le nombre de semaines (ce qui était la demande initiale de Steeve_B) :

=DATE(2022;1;5)-JOURSEM(DATE(2022;1;3)) + (D5-1)*7

et on obtient la formule de Daniel.

Answer 2

Bonjour Bernard,

Merci pour la correction. Je n'avais pa été voir plus loin que cette année ;-(

Daniel

Answer 3

Jolie formule ! 😊

Si je peux me permettre un petit correctif : pour l'année en cours, pas de souci. Mais pour les années 2019 et 2020 ou 2024 et 2025, la formule ne donnerait pas le bon résultat (avec la numérotation ISO). Pour que ça colle, il faut modifier un peu la formule, qui devient :

=DATE(ANNEE(AUJOURDHUI());1;5)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;3))+(D5-1)*7

Pour tester sur les autres années, si on saisit l'année en cellule B5 :

=DATE(B5;1;5)-JOURSEM(DATE(B5;1;3))+(D5-1)*7

Answer 4

Bonjour et bonne année également.

La solution par VBA :

Sub test()
Dim Sem As Integer, Deb As Date
Sem = 2
Deb = DateSerial(Year(Date) - 1, 12, 20)
Do
Deb = Deb + 1
If Application.IsoWeekNum(Deb) = Sem Then
MsgBox Deb
Exit Sub
End If
Loop
End Sub

Pour la formule Excel, à vérifier :

avec "2" en D5

=DATE(ANNEE(AUJOURDHUI());1;8)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;6))+(D5-1)*7

Cordialement.

Daniel

Answer 5

Est-ce qu'il s'agit d'un numéro de semaine ISO ou d'un numéro de semaine US ?