Discussion :

[DenisHen]

Bonjour à la communauté.
Voilà, je cherche, uniquement en VBA, à trouver la date du premier lundi de l'année. Ce qui me donnera le point de départ de toutes les semaines de l'année.
J'aimerais, pas exemple, sortir le 3 pour l'année 2022 par exemple (car le premier lundi de cette année est le 3).
Ma variable est Annee et je souhaiterais 3 comme résultat, je saurais que c'est le premier lundi.
Bien à toi, la communauté.
Denis...

[Pierre Fauconnier]

Salut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function FirstMondayInYear(Value As Long) As Date
  FirstMondayInYear = DateSerial(Value, 1, 1) - Weekday(DateSerial(Value, 1, 1), vbMonday) + 1
  If Year(FirstMondayInYear) <> Value Then FirstMondayInYear = FirstMondayInYear + 7
End Function

Attention que cela ne te permettra pas de calculer le n° du semaine de l'année, la numéro 1 pouvant contenir des dates de l'année précédente

[DenisHen]

Bonsoir Pierre et mille mercis pour ton aide.
Mais je n'ai pas compris : "Attention que cela ne te permettra pas de calculer le n° du semaine de l'année, la numéro 1 pouvant contenir des dates de l'année précédente".
Que veux tu dire par là ?
En ajoutant des multiples de 7, je ne pourrais pas connaitre le début de toutes les semaines de l'année ?

[Pierre Fauconnier]

La fonction renvoie le premier lundi de janvier, mais tu parlais d'établir la liste des semaines de l'année, et j'ai compris, peut-être à tort, que tu souhaitais utiliser les numéros de semaine.

Donc, si c'est ok pour toi d'avoir le premier lundi de janvier, la fonction est ok. Tout dépend de ce que tu souhaites mettre en place

[DenisHen]

Je pensais qu'en ajoutant des multiple de 7, je tomberais sur tous les lundi de l'année...
Mais "Value" dans ton code, serait l'année ? Et en integer ?
En tous cas, merci pour ton aide...

[Pierre Fauconnier]

Je pensais qu'en ajoutant des multiple de 7, je tomberais sur tous les lundi de l'année...
Mais "Value" dans ton code, serait l'année ? Et en integer ?
En tous cas, merci pour ton aide...

Oui oui, si tu ajoutes des multiples de 7, tu trouveras les lundis de l'année. J'avais mal compris ton histoire de semaine, désolé

[DenisHen]

J'ai essayé essayé plusieurs tentatives.
J'ai testé depuis un Sub : MsgBox PremierLundi("01/01/2022"), mais je ne sais pas trop quoi faire en fait avec ta fonction...
Voici le tout, pour l'instant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub PremierLundiAnnee()
    MsgBox PremierLundi("2022")
End Sub
Function PremierLundi(Value As Long) As Date
  PremierLundi = DateSerial(Jour, 1, 1) - Weekday(DateSerial(Value, 1, 1), vbMonday) + 1
  If Year(PremierLundi) <> Value Then PremierLundi = PremierLundi + 7
End Function

[Pierre Fauconnier]

Ma fonction reçoit une année et retourne le premier lundi de cette année. Elle retourne donc une date.

Voici deux exemples d'utilisation: à gauche pour trouver le premier lundi d'une série d'années, et à droite pour commencer la série des lundis de 2022

[Pierre Fauconnier]

On pourrait se poser la question de l'utilité d'une fonction pour remplacer deux lignes. Perso, je développe en essayant toujours d'atomiser mes fonctions, c'est-à-dire d'écrire des fonctions qui ne font qu'une chose, puis de les assembler. Cela permet deux choses:

1. tester chaque petite fonction séparément du reste: elle doit donc recevoir tout ce dont elle a besoin en paramètres et ne peut pas utiliser de variables publiques;
2. récupérer le code créé pour l'utiliser dans d'autres projets, ce qui permet de
   
   1. systématiser l'approche d'écriture du code
   2. d'utiliser des fonctions qui ont été testées
   3. gagner du temps.

Idéalement, lorsque l'on sait que l'on réutilisera les fonctions dans d'autres projets, on les regroupe dans des modules "Tools" que l'on embarque dans chaque projet. On crée ainsi une couche d'abstraction, une sorte de "framework" sur lequel on appuie une approche systématique d'écriture. Ca fait gagner énormément de temps, tant pour la création du code que pour sa maintenance.

[Pierre Fauconnier]

J'ai essayé essayé plusieurs tentatives.[...]

Normalement, il faut passer l'année en Long (2022) et pas en String ("2022"). En utilisant "2022" en dur, ça ne pose pas de problème car VBA transtype automatiquement "2022" en 2022, mais si tu passais une variable String, ça poserait problème à cause du type de la valeur passée (String) à la place du type attendu (Long), vu que par défaut, les arguments sont passés ByRef.


Dans ton code, tu utilises la variable Jour à la ligne 5: PremierLundi = DateSerial(Jour, 1, 1) - Weekday(DateSerial(Value, 1, 1), vbMonday) + 1. Or, cette variable n'est définie nulle part et elle vaudra donc 0... Bizarrement, DateSerial l'interprétera comme 2000, et donc, tu renverras toujours le 1^er lundi de l'année 2000. Tu dois utiliser PremierLundi = DateSerial(Value, 1, 1) - Weekday(DateSerial(Value, 1, 1), vbMonday) + 1.


Normalement, on devrait toujours déclarer et typer les variables => Mon billet de blog qui explique pourquoi

[DenisHen]

Bonjour Pierre.
En relisant ton code, ce matin, j'avais trouvé "Jour" à la place de "Value"... J'ai corrigé et ça fonctionne super bien...
Je te remercie pour ton code, qui contient des termes que je ne connaissais absolument pas ! ! !
Désolé, je n'ai accès à ma boite mail que le soir...
Encore un grand merci pour ton aide...
Denis...