créer un calendrier dans un UserForm

WILFRIED

XLDnaute Impliqué

• 7 Février 2013

• #136

Re : créer un calendrier dans un UserForm

Salut,

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

A+

 

Pièces jointes

• mod_cal.zip

  3.4 KB · Affichages: 197

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 28 Janvier 2015

• #137

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

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 28 Janvier 2015

• #138

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+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Janvier 2015

• #139

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

 

Pièces jointes

• Date_Cathy.xlsm

  21.6 KB · Affichages: 133

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 28 Janvier 2015

• #140

Re : créer un calendrier dans un UserForm

Salut PierreJean,

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

C@thy

 

Pièces jointes

• controles.png

  25.4 KB · Affichages: 118

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Janvier 2015

• #141

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

 

Pièces jointes

• Calendrier_cousu_main(1juin12).xls

  99.5 KB · Affichages: 146
• Calendrier_cousu_main(1juin12).xls

  99.5 KB · Affichages: 145
• Calendrier_cousu_main(1juin12).xls

  99.5 KB · Affichages: 129

Dernière édition: 28 Janvier 2015

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 28 Janvier 2015

• #142

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Janvier 2015

• #143

Re : créer un calendrier dans un UserForm

Re

Regarde mieux !!

Je l'ai un peu modifié (Feuil1)

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 28 Janvier 2015

• #144

Re : créer un calendrier dans un UserForm

OK!!!

Merciiiiiiiiiiiiiiii

C@thy

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Février 2015

• #145

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Février 2015

• #146

Re : créer un calendrier dans un UserForm

Re

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

 

Pièces jointes

• Calendrier_cousu_main(1juin12).xls

  97 KB · Affichages: 121
• Calendrier_cousu_main(1juin12).xls

  97 KB · Affichages: 117
• Calendrier_cousu_main(1juin12).xls

  97 KB · Affichages: 107

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Février 2015

• #147

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

 

Pièces jointes

• 159-Dette 04-02-2015 TEST.xlsm

  511.1 KB · Affichages: 117
• 159-Dette 04-02-2015 TEST.xlsm

  511.1 KB · Affichages: 123
• 159-Dette 04-02-2015 TEST.xlsm

  511.1 KB · Affichages: 110

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Février 2015

• #148

Re : créer un calendrier dans un UserForm

Re

Vois si cela va mieux

 

Pièces jointes

• 159-Dette 04-02-2015 TEST.xlsm

  503.5 KB · Affichages: 148
• 159-Dette 04-02-2015 TEST.xlsm

  503.5 KB · Affichages: 137
• 159-Dette 04-02-2015 TEST.xlsm

  503.5 KB · Affichages: 141

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 4 Février 2015

• #149

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Février 2015

• #150

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 )

 

Vote positif 0 Vote négatif