Voici un mini calendrier, sans API ni module de classe.
Il est le plus simple possible, un code clair et facile à comprendre.
Il est différent de ce qui existe avec les mêmes fonctionnalités.
Sur une date nous avons le N° Semaine et inversement.
L’adresse active peut être changée, idem pour le numéro de semaine zone bleu.
2 résultats possibles :
Format1 à 08/04/2022 (Const Format1 = "dd/mm/yyyy" )
Format2 à 15 février 2022 ( Const Format2 = "dd mmmm yyyy" )
Ou en abrégé (Const Format2 = "dd mmm yyyy" ) modifié
Pour mémoire en VBA :
N° Semaine à Format(Date, "ww", vbMonday, vbFirstFourDays)
Date en fonction du n° semaine à
Alpha = (7 * N°semaine) + DateSerial(année, 1, 3) - Weekday(DateSerial(année, 1, 3)) - 5
Nota : Si la textbox année à plus de 4 caractères ou inférieur à 4 la situation est rétablie. (Focus)
Nota-2 : Et cerise sur le gâteau le calendrier fonctionne pour les années 1800.
Jean-Paul
Voici l'aperçu :
Il est le plus simple possible, un code clair et facile à comprendre.
Il est différent de ce qui existe avec les mêmes fonctionnalités.
Sur une date nous avons le N° Semaine et inversement.
L’adresse active peut être changée, idem pour le numéro de semaine zone bleu.
2 résultats possibles :
Format1 à 08/04/2022 (Const Format1 = "dd/mm/yyyy" )
Format2 à 15 février 2022 ( Const Format2 = "dd mmmm yyyy" )
Ou en abrégé (Const Format2 = "dd mmm yyyy" ) modifié
Pour mémoire en VBA :
N° Semaine à Format(Date, "ww", vbMonday, vbFirstFourDays)
Date en fonction du n° semaine à
Alpha = (7 * N°semaine) + DateSerial(année, 1, 3) - Weekday(DateSerial(année, 1, 3)) - 5
Nota : Si la textbox année à plus de 4 caractères ou inférieur à 4 la situation est rétablie. (Focus)
Nota-2 : Et cerise sur le gâteau le calendrier fonctionne pour les années 1800.
Jean-Paul
Voici l'aperçu :