Calendrier pour multi userform V4

[youky(BJ)]

youky(BJ) a soumis une nouvelle ressource:

Calendrier pour multi userform - Facile à mettre en place pour divers userform ou autant de textbox

Toutes les explications dans le fichier

En savoir plus sur cette ressource...

 

[JCabral]

Comment est-il possible que la première semaine de chaque année soit le numéro 1, c'est-à-dire que la première semaine de l'année commence avec le premier jour de l'année?

 

[JM27]

Bonjour JCabral et bienvenue pour sur Xld pour ton premier post

1/ peut tu svp lire la charte du Forum (et notamment le point 3)
https://www.excel-downloads.com/help/charte/

2/ a priori le calendrier De Bruno réponds bien au calendrier au normes ISO
si tu sélectionnes le 01/01/2021 c'est bien a semaine 53 qui s'affiche.

si tu souhaites autrement regardes du coté de la fonction VBA datepart

 

[JCabral]

BonjourJM27

Comme vous le savez dans le calendrier grégorien, il n'y a pas de semaines qui s'étalent sur des années, lorsque vous avez des objectifs hebdomadaires, ou lorsque vous avez besoin de la semaine 1 pour commencer le 1er janvier de chaque année, la norme ISO n'est pas utilisée, excel lui-même le permet comme vous le savez , ce qui signifie que la première semaine commence le premier jour de l'année.

J'ai donc demandé à celui qui a fait le calendrier s'il était possible de faire ça, simple question!, C'est pourquoi je ne comprends pas votre question.

Cordialement
Jorge Cabral

 

[JM27]

bonjour
voir mon post 3

si tu souhaites autrement regardes du coté de la fonction VBA datepart

et en remplaçant je crois
deb par D1 dans les lignes datepart
vbFirstFourDays par vbFirstJan1

Ca doit répondre à ton pb

Nota: je laisse le soin à Bruno qui est l'auteur ,de te répondre si il le souhaite.

 

[JCabral]

Bon après-midi JM27

Merci pour votre réponse.

J'avais déjà essayé de faire ce changement et ça ne marche pas, la première semaine devient 53 et puis il n'y a pas de semaine nº1

J'attends que Bruno trouve le temps de répondre, s'il le souhaite

 

[JM27]

bonjour
remplacer
deb par D1

.Label52 = DatePart("ww", D1, vbMonday, vbFirstJan1)
.Label53 = DatePart("ww", D1 + 7, vbMonday, vbFirstJan1)
.Label54 = DatePart("ww", D1 + 14, vbMonday, vbFirstJan1)
.Label55 = DatePart("ww", D1 + 21, vbMonday, vbFirstJan1)
.Label56 = DatePart("ww", D1 + 28, vbMonday, vbFirstJan1)
.Label57 = DatePart("ww", D1 + 35, vbMonday, vbFirstJan1)

cela devrait le faire
( attention il y a deux procédures qui utilises ces lignes)
par contre si tu pars du principe que le 1 er janvier est la semaine 1 , cela veut dire que cette semaine 1 ne comporte pas forcément 7 jours.( ainsi que la dernière semaine de l'année)

Bruno si il le souhaite infirmera ou confirmera ( merci encore à lui pour son calendrier)

 

[youky(BJ)]

Bonjour à tous,
Je pense que Jean Marie a bien répondu.
J'avais pondu ceci, je dispose pas de calendrier autre que Français pour vérifier.
Je me suis rendu compte que tout le code en Initialize après ceci
.ScrollBar1.Value = Val(.Label51)
peut être effacé il fait double emplois.
Bruno

.Label52 = Application.WeekNum(deb + 6, 2)
.Label53 = Application.WeekNum(deb + 13, 2)
.Label54 = Application.WeekNum(deb + 20, 2)
.Label55 = Application.WeekNum(deb + 27, 2)
.Label56 = Application.WeekNum(deb + 34, 2)
.Label57 = Application.WeekNum(deb + 41, 2)

 

[JCabral]

Bonjour Jean Marie et Bruno

Je ne l'ai pas encore testé de manière exhaustive, mais je pense que cela fonctionne comme je le souhaite.

Merci beaucoup
Jorge

 

[youky(BJ)]

youky(BJ) a mis à jour Calendrier pour multi userform avec une nouvelle entrée de mise à jour:

Dateur sur Multi UserForm

Dateur_V2 permet d'utiliser le dateur à partir des cellules.
Egalement de divers Userform contenant des Textbox ou
Userform avec Multipage et Textbox.
Simple d'emploi et nécessitant que très peu de ressources.
Les textbox dans les Frames ne sont pas gérés.
C'est une amélioration de la version précédente.
Bruno

Lire le reste de cette entrée de mise à jour...

 

[Alain79]

Bonjour BJ
Je viens de télécharger la mise à jour, et lorsque j'ai effectué un essai j'ai constaté une petite anomalie.
Lorsque l'on double clique sur une cellule vide ou un textbox, le mois de juin s'affiche avec le chiffre 1 pour tous les jours du mois. Si une date figure dans la cellule (autre que juin 2021) le calendrier s'ouvre correctement.
Cordialement
Alain

 

[youky(BJ)]

youky(BJ) a mis à jour Calendrier pour multi userform avec une nouvelle entrée de mise à jour:

Correction du bug mentionné par Alain

Lire le reste de cette entrée de mise à jour...

 

[Alain79]

Bonjour youky(BJ)
Merci pour une réaction aussi rapide, la version V3 fonctionne très bien.
Toutefois le lien mis dans le message ci-dessus renvoie sur un message d'erreur :

Oups ! Quelque chose ne va pas.​

Vous n'êtes pas autorisé à afficher cette page ou à effectuer cette action.
Pas très grave, il suffit de cliquer sur le bouton en haut de page "Télécharger"
Cordialement
Alain

 

[soan]

Bonjour Alain33190, youky,

je précise que le message d'erreur que tu as indiqué survient en effet si on clique sur le 2ème lien « Lire le reste de cette entrée de mise à jour... » ; si tu cliques sur le 1er lien « Calendrier pour multi userform », c'est ok ! 🙂 mais pour le 2ème lien, c'est vrai que c'est pas top que ça aboutisse à un message d'erreur ! 😢​

---

@youky(BJ) : le bug du 2ème lien est présent au moment où je poste ce message : le 9 juin à 00:48.​

soan

 

[youky(BJ)]

youky(BJ) a mis à jour Calendrier pour multi userform avec une nouvelle entrée de mise à jour:

Explications modifiées sur Dateur

Seulement les explications ont été modifiées

Lire le reste de cette entrée de mise à jour...