XL 2016 Comment insérer un calendrier dans textbox

KTM

XLDnaute Impliqué
Bonjour chers tous
J'ai un userform avec textbox dans lequel on doit entrer des dates.
Je voudrais y insérer un calendrier pour le choix des dates.
Merci
 

Dudu2

XLDnaute Barbatruc
Bonjour @KTM,

Il y a pléthore d'auteurs de calendriers savants sur ce forum.
Je te passe le mien à moi que je l'ai fait aussi, et qui utilise un UserForm et un Module d'appel.

A noter que j'ai 2 autres versions: vue des semaines et vue des mois si besoin.
 

Pièces jointes

  • Calendrier Personnalisé.xlsm
    46.2 KB · Affichages: 36

KTM

XLDnaute Impliqué
Bonjour @KTM,

Il y a pléthore d'auteurs de calendriers savants sur ce forum.
Je te passe le mien à moi que je l'ai fait aussi, et qui utilise un UserForm et un Module d'appel.

A noter que j'ai 2 autres versions: vue des semaines et vue des mois si besoin.
Merci Dudu2
J'essaie d'adapter à ma façon mais j'ai un souci avec l'affichage des userform
Pouvez vous m'aider ? sinon c'est ce que je cherche. Merci.
 

Pièces jointes

  • Mon Fichier avec Calendrier .xlsm
    48.9 KB · Affichages: 10

Dudu2

XLDnaute Barbatruc
2 petits problèmes:
1 - Tu fais un UserFormTest.Show dans le Module_Test. OK
Dans le code du UserFormTest sur TextBox1_DblClick() tu refaisais un UserFormTest.Show vbModeless
A seule fois suffit en principe, sauf à changer le Mode en cours de route, besoin rarissime et qui n'est pas l'enjeu ici.

2 - Dans le UserFormTest tu faisais un Call Calendrier(Modal:=vbModeless, TargetObject:=Me.TextBox1).
Si tu l'affiches en vbModeless, le UserFormTest reprends la main et le calendrier reste affiché. Ça peut avoir un intérêt dans certaines situations, mai en l'occurrence il faut faire un Call Calendrier(Modal:=vbModal, TargetObject:=Me.TextBox1) pour que le calendrier garde la main jusqu'au choix (ou le non-choix) de la date.

Edit: D'ailleurs ce paramètre j'aurais dû l'appeler Mode et si je l'appelle Modal lui donner la valeur True ou False. Mais c'est un remarque presonnelle.
 

Pièces jointes

  • Mon Fichier avec Calendrier .xlsm
    44.8 KB · Affichages: 17
Dernière édition:

patricktoulon

XLDnaute Barbatruc
bonsoir
voici un userform nommé "testeur" avec des textboxs
cliquez droite avec la souris dans les textboxs pour tester
les 3 regions gérées nativement par excel en francais y sont représentées

pour adapter
ouvrir votre classeur et le mien en meme temps
allez dans le visual basic editor (VBE)
cous devriez voir les deux projets le votre et le mien dans la prtie gauche de la fentre
restez appuyé sur calendar tout en le faisant glisser ver votre projet
vous n'avez plus qu'a copier l'events en fonction de la regions de votre choix (US ou FR ou CA)
dans les events du ds textbox de votre userform dans votre projet

si vous avez pas faire ça mettez votre classeur anonymisé(exant de toute donnée confidentielles) dans votre deman,de on le fera pour vous

et bien d'autres regions dispo
demo.gif


a noter que le control appelant peu etre un label , un commanbutton, une combobox etc..
tout control ayant la propriété caption ou value en fait

Enjoy
 

Pièces jointes

  • model patricktoulon v4.2.4.xlsm
    73.4 KB · Affichages: 18

KTM

XLDnaute Impliqué
bonsoir
voici un userform nommé "testeur" avec des textboxs
cliquez droite avec la souris dans les textboxs pour tester
les 3 regions gérées nativement par excel en francais y sont représentées

pour adapter
ouvrir votre classeur et le mien en meme temps
allez dans le visual basic editor (VBE)
cous devriez voir les deux projets le votre et le mien dans la prtie gauche de la fentre
restez appuyé sur calendar tout en le faisant glisser ver votre projet
vous n'avez plus qu'a copier l'events en fonction de la regions de votre choix (US ou FR ou CA)
dans les events du ds textbox de votre userform dans votre projet

si vous avez pas faire ça mettez votre classeur anonymisé(exant de toute donnée confidentielles) dans votre deman,de on le fera pour vous

et bien d'autres regions dispo
Regarde la pièce jointe 1120761

a noter que le control appelant peu etre un label , un commanbutton, une combobox etc..
tout control ayant la propriété caption ou value en fait

Enjoy
Merci je fais tester et je reviens
 

KTM

XLDnaute Impliqué
2 petits problèmes:
1 - Tu fais un UserFormTest.Show dans le Module_Test. OK
Dans le code du UserFormTest sur TextBox1_DblClick() tu refaisais un UserFormTest.Show vbModeless
A seule fois suffit en principe, sauf à changer le Mode en cours de route, besoin rarissime et qui n'est pas l'enjeu ici.

2 - Dans le UserFormTest tu faisais un Call Calendrier(Modal:=vbModeless, TargetObject:=Me.TextBox1).
Si tu l'affiches en vbModeless, le UserFormTest reprends la main et le calendrier reste affiché. Ça peut avoir un intérêt dans certaines situations, mai en l'occurrence il faut faire un Call Calendrier(Modal:=vbModal, TargetObject:=Me.TextBox1) pour que le calendrier garde la main jusqu'au choix (ou le non-choix) de la date.

Edit: D'ailleurs ce paramètre j'aurais dû l'appeler Mode et si je l'appelle Modal lui donner la valeur True ou False. Mais c'est un remarque presonnelle.
Super Merci
 

patricktoulon

XLDnaute Barbatruc
re
si tu veux un calendar non responsif et non modal mais plutot vbmodeless et non responsif mais applicatif
tu n'a qu'a demander
en l'etat mon model est responsif et modal il a le meme comportement en tout point d'un msgbox
les 42 boutons ayant le meme comportement que les bouton d'un msgbox
il renvoie une reponse et non applique une date a un textbox
les deux modes on leurs avantages et inconveniants
d'ailleurs je vais penser a faire une version applicative de ce meme calendrier
 

patricktoulon

XLDnaute Barbatruc
ben la semaine derniere j'etait sur le project de Eric72 sur ce forum et un autre dans un forum anglo saxon
ca m'a pris beaucoup de temps
il me semble que tu avais fait ta version de rapprochement userform vers controls appelants pourquoi ne l'a tu pas mis dans ton modele (c'est un plus )
j'aime bien le bandeau des boutons on dirait un playe media ;)
 

Discussions similaires

Réponses
19
Affichages
710
Réponses
4
Affichages
144

Statistiques des forums

Discussions
312 538
Messages
2 089 403
Membres
104 160
dernier inscrit
dqldq