créer un calendrier dans un UserForm

[C@thy]

Bonjour le forum,

Je voudrais créer un calendrier selon le modèle ci-joint, (mais avec les jours de la semaine en haut, en colonnes,
les flèches pour changer de mois en haut et d'année en bas)
mais dans un USF

Comment puis-je créer les flèches pour changer de mois et d'année, et initialiser les valeurs???
(j'ai essayé avec une scrollbar ou un spinbutton, mais je ne sais pas comment afficher le mois en cours, l'année en cours et faire la navigation sur d'autres mois ou années)

Merci à vous, si vous avez des idées sur la question ou un exemple à me fournir.

Edit : j'ai mis 2010 car il doit être compatible 2010, mais en réalité, pour l'instant je n'ai que 2003!!

Bises et bonne journée,

C@thy

 

[WILFRIED]

Re : créer un calendrier dans un UserForm

Salut,

Voici un systeme que j'ai creer qui pourra peut etre t'aider...

A+

 

[C@thy]

Re : créer un calendrier dans un UserForm

Coucou les zamis,

je reprends ce fil fort intéressant...

Le but est le suivant : dans un userform on a une textbox avec une date (initialisée par défaut à la date du jour).

On clique dans la textbox et on peut choisir une date dans un calendrier et le choix vient se mettre dans la textbox...

J'ai essayé des trucs simples, mais en XL2010 je ne trouve pas le contrôle calendrier dans la boite à outils... et il n'est pas dans Contrôles supplémentaires...

C@thy

 

[WILFRIED]

Re : créer un calendrier dans un UserForm

Salut a tous et toutes,

J'ai plusieurs fois rencontrer le meme probleme. Le control calendrier est MSCAL**.ocx. Il n'ai pas installer par defaut par MSOFFICE, il faut aller le selectionner manuellement a l'installation. Si tu passe ton fichier a une personne n'ayant pas la même version que le tiens cela vas planter... C'est pourquoi j'ai créé le module de classe. Il est a charger manuellement a la création de ton fichier. De mémoire, il y as un module qui permet de le charger avec des commentaires sur le fonctionnement.

Voili voilou.

A+

 

[pierrejean]

Re : créer un calendrier dans un UserForm

Hello C@thy

Le contrôle est dans les contrôles supplémentaires Microsoft Date and Time picker

Edit : Salut Wilfried

 

[C@thy]

Re : créer un calendrier dans un UserForm

Salut PierreJean,

Ben... trouve pas!!! Regarde...

C@thy

 

[pierrejean]

Re : créer un calendrier dans un UserForm

Re

Il te faudrait installer MSCOMCT2.OCX

Télécharger Microsoft Windows Common Controls-2 6.0 (MSCOMCT2.OCX)

Sinon vois si tu peux exploiter ceci

 

[C@thy]

Re : créer un calendrier dans un UserForm

Merci PJ. Je ne peux rien télécharger, on a des firewall partout, blocage maximum...

Oui, j'ai déjà consulté ce fichier, que j'avais gardé précieusement dans mon grenier...

Bises

C@thy

 

[pierrejean]

Re : créer un calendrier dans un UserForm

Re

Regarde mieux !!

Je l'ai un peu modifié (Feuil1)

 

[C@thy]

Re : créer un calendrier dans un UserForm

OK!!!

Merciiiiiiiiiiiiiiii

C@thy

 

[C@thy]

Re : créer un calendrier dans un UserForm

OK PJ,

ce serait possible avec un clic au lieu d'un double clic?

J'essaye de le modifier, mais j'y arrive pô!!

C@thy

 

[pierrejean]

Re : créer un calendrier dans un UserForm

Re

Avec la complicité d'une Textbox à l’extérieur de l'userform

 

[C@thy]

Re : créer un calendrier dans un UserForm

Pierre-Jean, je n'y arrive pas...

j'ai tout recopié dans mon (gros...) fichier le bouton bleu TEST est censé faire la même chose...

mais rien ne s'inscrit dans les textbox lorsque je change la date...

C@thy

 

[pierrejean]

Re : créer un calendrier dans un UserForm

Re

Vois si cela va mieux

 

[C@thy]

Re : créer un calendrier dans un UserForm

Bravo Pierre-Jean, t'es trop fort, tu as trouvé mon erreur!!!

C'était quoi??? (je ne suis pas curieuse mais j'aime bien tout savoir...

C@thy

 

[pierrejean]

Re : créer un calendrier dans un UserForm

Re

J'ai pas mal bataillé pour en définitive:
1) abandonné la variable moi qui existe peut-être ailleurs dans le code (Excel me répondait mot ambigu !!!)
2) remplacé par jesuis déclaré en public (module 1)
3) modifié l'affectation dans le module de classe (il reste la ligne d'origine en commentaire)
4) Ajouté une textbox dans l'Userform2 (en dehors : étirer l'userform vers le bas pour la voir) ,ceci afin d'y loger le focus à l'initialisation
5) pour un fonctionnement avec un seul clic transféré les sub _doubleclick en _Enter (qui se déclenchent à la réception du focus )
nb: d'ou le 4) qui empêche d'avoir le focus sur la textbox1 à l'initialisation )