XL 2010 RESOLU par Pierre-Jean - UserForm Intégrer affichage calendrier en saisie dans une TextBox

[Usine à gaz]

Bonjour à toutes et à tous,

Me voilà en train de créer mon premier UserForm ..... c'est pas triste LOL mais j'avance.

Je bute sur l'intégration d'un calendrier lié à une textbox.

Voici mon besoin :
UserForm provoquer affichage calendrier en saisie dans une TextBox
Sélection et ENREGISTREMENT DANS LA CELLULE DE LA FEUILLE

J'ai importé une version UF du calendrier de Roland (encore merci au passage) dans le fichier test que je joins pour tests.

Je dois mettre dans le code de la textbox ou ailleurs la formule magique : fm_CalendrierCellMinMax.Show
Mais voilà …. Malgré toutes mes recherches et tentatives, je n'y arrive pas.

J'ai également exprimé mon besoin dans l'UserForm du classeur test joint.

Votre aide comme à l'habitude me sera précieuse pour comprendre ce qu'il faut faire.
Avec mes grands Mercis,
Je vous souhaite une bonne journée,
Amicalement,
Lionel,

 

[pierrejean]

Bonjour arthour973

Vois s'il y a des progrès

 

[Usine à gaz]

Bonjour Pierre Jean,

Merci pour cette réponse si rapide.
Effectivement, quand je clique sur le Label83, le calendrier s'ouvre.

Mais il faudrait qu'il s'ouvre en cliquant dans la Texbox7 (info 7) ce qui permet d'enregistrer dans ma feuille "ICI",

Je continue à chercher en partant de votre "avancée".
Amicalement,
Lionel,

 

[pierrejean]

Re

Comme ceci peut être

 

[Usine à gaz]

Bon sang ..... C'est exactement ça, je vais voir en détail pour comprendre.
Vraiment merci. C'est génial pour mon boulot.

Partant de zéro, j'ai, grâce au forum et aussi sur le net, étudié la création des UserForm mais j'ai un gros handicap : je ne parle pas anglais.

Mais je suis pas mal avancé même si quelques trucs restent en suspend.
Je reviendrai certainement.
Merci Pierre Jean,
Amicalement,
Lionel,

 

[Usine à gaz]

LOL Je ne m'en lasse pas ..... encore Merci Pierre-Jean
Lionel,

 

[Usine à gaz]

Bonjour Pierre-Jean,
Bonjour à toutes et à tous,

Je reviens pour une question car il y a un "truc" que je ne comprends pas.

Dans mon classeur de travail, j'ai l'UserForm complet et il y a plusieurs dates où doit s'afficher le calendrier au clic.
J'ai copié ton code en modifiant le numéro de la textbox et ça fonctionne très bien.

Voici ce que je ne comprends pas :
J'ai vu que dans le code du calendrier tu as mis le code suivant :
Private Sub ButtonOk_Click()
ActiveCell = CalendrierDateSELECT: Unload Me
UserForm1.TextBox7 = CalendrierDateSELECT: Unload Me
End Sub

Dans mon classeur, j'ai fait de même en y ajoutant les codes pour mes autres textbox.

Je viens de m'apercevoir qu'en rendant inactif les codes avec le ', ça marche quand même LOL
Voudrais-tu me dire quel est l'action de ce code ?
Private Sub ButtonOk_Click()
ActiveCell = CalendrierDateSELECT: Unload Me
'UserForm1.TextBox7 = CalendrierDateSELECT: Unload Me
'UserForm1.TextBox7 = CalendrierDateSELECT: Unload Me
'UserForm1.TextBox14 = CalendrierDateSELECT: Unload Me
'UserForm1.TextBox54 = CalendrierDateSELECT: Unload Me
End Sub

Avec mes remerciements,
Amicalement,
Lionel,