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

Hasco

XLDnaute Barbatruc

Repose en paix

• 18 Juillet 2022

• #2

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))

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Solution

J

JHA

XLDnaute Barbatruc

• 18 Juillet 2022

• #3

Bonjour à tous,

A essayer

VB:

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

JHA

 

Pièces jointes

• Classeur semaine.xlsx

  9.7 KB · Affichages: 10

Vote positif 0 Vote négatif

F

Flx1er

XLDnaute Occasionnel

• 18 Juillet 2022

• #4

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

 

Vote positif 0 Vote négatif

F

fibled

XLDnaute Nouveau

• 1 Septembre 2022

• #5

Hasco à dit:

Bonjour,

Voici une fonction qui le fait :


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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 1 Septembre 2022

• #6

Bonjour à tous

C'est une fonction PowerQuery pas VBA

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 1 Septembre 2022

• #7

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 :

VB:

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 1 Septembre 2022

• #8

RE

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

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 1 Septembre 2022

• #9

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.

Cliquez pour agrandir...

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

Cordialement

 

Dernière édition: 1 Septembre 2022

Vote positif 0 Vote négatif

F

fibled

XLDnaute Nouveau

• 13 Septembre 2022

• #10

Hasco à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Septembre 2022

• #11

chris à dit:

RE

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 13 Septembre 2022

• #12

Bonjour

Effectivement j'ai bégayé

 

Vote positif 0 Vote négatif