XL 2016 Comment insérer un calendrier dans textbox

[KTM]

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]

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.

 

[KTM]

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.

 

[Dudu2]

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.

 

[patricktoulon]

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

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

 

[patricktoulon]

mon modele adapté sur ton fichier
au double click sur le textbox

 

[KTM]

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]

mon modele adapté sur ton fichier
au double click sur le textbox

Merci !!!

 

[KTM]

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]

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]

Bonsoir @Dudu2
trimestre précedent/suivant une idée intéressante 👍

 

[Dudu2]

Bonsoir @patricktoulon,
Je te voyais plus trop dans les sujets et je m'inquiétais.
Rassuré de te revoir ici.

 

[patricktoulon]

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 😉