Icône de la ressource

Calendrier pour multi userform V4

JCabral

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 
Dernière édition:

JCabral

XLDnaute Nouveau
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

XLDnaute Barbatruc
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.
 
Dernière édition:

JCabral

XLDnaute Nouveau
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

XLDnaute Barbatruc
bonjour
remplacer
deb par D1


VB:
.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)
 
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
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

VB:
.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

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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Alain79

XLDnaute Nouveau
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

XLDnaute Barbatruc
Inactif
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
 

Statistiques des forums

Discussions
311 709
Messages
2 081 754
Membres
101 812
dernier inscrit
trufu