VBA - Trouver le numéro de la semaine

[pilote301152]

Bonjour,

Je souhaiterais calculer sous VBA le numéro de la semaine pour une date donnée. Or l'aide Excel m'alerte sur le manque de fiabilité de la fonction NO.semaine selon les normes européennes!

j'ai bien trouvé un lien dans le forum (Lien supprimé) mais il n'est plus actif 😡.

Quelqu'un a -t-il une macro fiable pour obtenir le numéro d'une semaine?

Merci de votre aide.
Bon WE

 

[James007]

Re : VBA - Trouver le numéro de la semaine

Bonjour,

Pour le numéro de la semaine avec la norme ISO :

Public Function NSemISO(InDate As Date) As Long
    Dim D As Date
    D = DateSerial(Year(InDate - Weekday(InDate - 1) + 4), 1, 3)
    NSemISO = Int((InDate - D + Weekday(D) + 5) / 7)
End Function

A +

 

[MJ13]

Re : VBA - Trouver le numéro de la semaine

Bonjour Pilote, James

Pilote: Sinon fait une recherche avancée sur le forum avec dans le titre numéro semaine et Roger2327 dans les intervenants et tu vas trouver des posts intéressant.

 

[pilote301152]

Re : VBA - Trouver le numéro de la semaine

Super ça marche .... il me reste à comprendre le principe.

Merci beaucoup James007 et BON WE

 

[MJ13]

Re : VBA - Trouver le numéro de la semaine

Re

Sinon, c'est vrai que je viens de m'apercevoir qu'en mettant en recherche avancé semaine iso et MJ13 dans les participants, j'ai toutes les dicussions sur 1 page se rapportant à ce sujet, En plus je les cherche souvent 😕.

Je pense que MasterDisco devrait en tenir compte dans son Xla pour rechercher des posts d'Xld à partir d'Excel (voir dans le salon) 😉.

Bon Week-end 🙂.

 

[ROGER2327]

Re : VBA - Trouver le numéro de la semaine

Bonjour à tous

La fonction de James007 est valable à partir du 27/02/1900.
Résultat erroné pour :
01/01/1900 ; 08/01/1900 ; 15/01/1900 ; 22/01/1900 ; 29/01/1900 ; 05/02/1900 ; 12/02/1900 ; 19/02/1900 et 26/02/1900.
Pas grave, mais il vaut mieux le savoir.
​

ROGER2327
#4612

Mercredi 25 As 138 (Saint Lewis Caroll, profesSainteur, SQ)
7 Frimaire An CCXIX
2010-W47-6T11:33:31Z

 

[James007]

Re : VBA - Trouver le numéro de la semaine

Merci beaucoup ROGER2327 ... 🙂

Depuis des années que j'utilise cette fonction, je ne savais pas quelle ne fonctionnait qu'à partir du 27 Février 1900 ... !!!

A +
😉

 

[ROGER2327]

Re : VBA - Trouver le numéro de la semaine

Re...

Merci beaucoup ROGER2327 ... 🙂

Depuis des années que j'utilise cette fonction, je ne savais pas quelle ne fonctionnait qu'à partir du 27 Février 1900 ... !!!

A +
😉

C'est juste pour la précision, et ça n'a le plus souvent pas d'importance. D'ailleurs, en 1900, l'ISO n'existait pas et le monde ne s'en portait pas plus mal (ni plus bien, d'ailleurs)…
​

ROGER2327
#4613

Mercredi 25 As 138 (Saint Lewis Caroll, profesSainteur, SQ)
7 Frimaire An CCXIX
2010-W47-6T11:43:46Z