XL 2019 Power Query - extraire le nombre de semaine d'une année en fct d'une date

[Flx1er]

Bonjour,
Je n'arrive pas à calculer le nombre de semaine qu'une année possède.

La norme ISO 8601, (https://fr.wikipedia.org/wiki/ISO_8601 cf chapitre numéro de semaine \ Système de numérotation \ Remarques et conséquences ) stipule :

"La dernière semaine de l'année (52 ou 53) est celle qui contient le dernier jeudi de l'année. Elle est la dernière à avoir la majorité de ses jours (au moins 4) dans l'année et contient systématiquement le 28 décembre. C'est aussi celle dont le dimanche est le plus proche du 31 décembre. Elle termine au plus tôt le 28 décembre ou au plus tard le 3 janvier ;"

La fonction Date.WeekOfYear, retourne la semaine d'une date.
Donc en passant comme paramètre "aaaa,12,28" à Date.WeekOfYear, je m'attendais a avoir le bon nombre de semaine. Eh bien non.

Pouvez vous m'aider a résoudre ce problème.
En vous remerciant
Cordialement

En pièce jointe un document de travail

 

[Hasco]

Bonjour,

Voici une fonction qui le fait :

/*
Fonction renvoyant le nombre de semaines dans l'année désirée.
--------------------------------------------------------------
Paramètres :
--------------------------------------------------------------
Année : Facultatif (année en cours par défaut)
Valeurs possibles de 1 à 9999.

*/

(optional Année as number) as number =>
let
An = if Année = null or Année < 1 or Année > 9999 then Date.Year(DateTime.LocalNow()) else Année
in
52+Number.From((Date.DayOfWeek(#date(An,1,31),Day.Sunday)>4) and (Date.DayOfWeek(#date(An,7,31),Day.Sunday)>4))

Vous savez créer une fonction maintenant Non ?
Sinon, demandez
cordialement

 

[JHA]

Bonjour à tous,

A essayer

=MAX(NO.SEMAINE.ISO(DATEVAL("28/12/"&$C$1));NO.SEMAINE.ISO(DATEVAL("31/12/"&$C$1)))

JHA

 

[Flx1er]

Bonjour,
Merci à vous deux.
Vu la rapidité de Hasco, je l'ai directement implémenter dans mon projet.
Bien cordialement

 

[fibled]

Bonjour,

Voici une fonction qui le fait :


Vous savez créer une fonction maintenant Non ?
Sinon, demandez
cordialement

Bonjour Hasco

Quitte à passer pour un peu bête, je dois avouer ne pas savoir comment traduire ta proposition de code en Visual BASIC de base !
Pourrais-tu me donner le code VBA pour cette fonction qui me serait actuellement fort utile.

Je m’excuse d'avance pour le dérangement mais je te serais très reconnaissant si tu savais me donner un code directement (ou presque !) utilisable dans mes petite macro Excel

Merci d'avance
Frederic

 

[chris]

Bonjour à tous

C'est une fonction PowerQuery pas VBA

 

[Hasco]

Bonjour,

Cette fonction en langage M (langage dePower query) est la traduction d'une fonction vba qu'on trouvait partout sur internet lorsque la fonction excel NO.SEMAINE.ISO n'existait pas (excel < 2013) je crois qu'elle est à l'origine de Laurent Longres.

Si vous n'utilisez pas excel < 2013, vous n'avez pas besoin d'une fonction vba, la fonction de feuille NO.SEMAINE.ISO.

Inutile de réinventer la roue.

Mais si vous aimez ça :

Function NOSEM(D As Date) As Long
'Laurent Longre
   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

Cordialement

 

[chris]

RE

Sur 2010 il y a aussi NO.SEMEMAINE(Date;21)

 

[Hasco]

Re,
je me réponds à moi-même :

Cette fonction en langage M (langage de Power query) fonction vba qu'on trouvait partout sur internet lorsque la fonction excel NO.SEMAINE.ISO n'existait pas (excel < 2013). je crois qu'elle est à l'origine de Laurent Longre.

Non c'est pas celle là que je ai donnée en M dans le post 2, mais peu importe les deux fonctionnent.

Cordialement

 

[fibled]

Re,
je me réponds à moi-même :


Non c'est pas celle là que je ai donnée en M dans le post 2, mais peu importe les deux fonctionnent.

Cordialement

Merci à vous deux pour vos reponses.

In finé, je me suis débrouillé avec la fonction DatePart() , qui m'a permis de regrouper et de comparer des enregistrements correspondant à une meme semaine .

cordialement
Frederic

 

[Staple1600]

RE

Sur 2010 il y a aussi NO.SEMEMAINE(Date;21)

Bonjour le fil

Aucune version d'Excel ne dispose de cette fonction

A moins que son possesseur ne soit pas dans son état normal ou sous l'emprise de psychotropes ou subitement devenu raélien.

 

[chris]

Bonjour

Effectivement j'ai bégayé