Utilisation calendrier dans userform

[n0str0m0]

Bonsoir,
Une petite question isdiote !
Voila je fais un userform avec l'insertion calendar, comment je fais pour récupérer la sélection faite dans ce userform ?
Merci de vos reponses

 

[Spitnolan08]

Re : Utilisation calendrier dans userform

Bonsoir,

Si bien compris la question...

Me.TextBox1.Value = Format(Calendar1, "DD/MM/YY")

pour récupérer la date du Calendrier1 dans la TextBox1
au format 17/03/08

Cordialement

 

[n0str0m0]

Re : Utilisation calendrier dans userform

Merci de ce retour rapide !

En fait la question est la suivante j'ai userform dans lequel j'ai rajouter l'insertion calendrier, jusque la tout va bien
quand j'appel le calendrier j'ai bien le choix d'une date mais
1 - le calendrier reste au premier plan
2 - je ne sais pas comment récupérer la selection !
Dois je mettre forcement un bouton Ok ?
la commande donnée :

Me.TextBox1.Value = Format(Calendar1, "DD/MM/YY")

est a ajouter dans la partie code de l'userform ?

Merci de votre aide

 

[Spitnolan08]

Re : Utilisation calendrier dans userform

Re,

L'instruction est à placer dans le module du Calendar :

Sub Calendar1_Click()
Me.TextBox1.Value = Format(Calendar1, "DD/MM/YY")
Unload Me
End Sub

Ainsi la date sera transférée au contrôle de l'UF spécifié et le calendrier sera déchargé.

Cordialement

 

[n0str0m0]

Re : Utilisation calendrier dans userform

Merci de la réponse
ma problematique a changé
J'ai en fait cree un "bouton command" qui appel le userform_calendar dans lequel Je recupere la date dans une variable Date_debut

Je veux réutiliser cette variable dans mon premier userform mais je n'y arrive pas !!
Je sent bien que cela ne dois pas etre compliqué mias je seche ;o)

merci de votre aide

 

[bqtr]

Re : Utilisation calendrier dans userform

Bonsoir n0str0m0, Spitnolan08

Tu peux par exemple déclarer ta variable Date_debut comme une variable public.

Dans un module de code standard, dans le module 1 par exemple, place cette ligne de code en haut du module avant tout autre chose ( pas dans une macro ):

Public Date_debut As Date

Comme ceci ta variable sera utilisable dans toutes tes macros y compris dans les codes de ton premier userform une fois que tu lui auras donner une valeur.

Private Sub Calendar1_Click()
Date_debut = Format(Calendar1, "dd/mm/yyyy")
Unload Me
End Sub

A+

Edit : Bon ben un coup pour rien, je viens de voir que notre ami a posé la même question dans un autre post..... ICI

 

[n0str0m0]

Re : Utilisation calendrier dans userform

Cbea, Spitnolan08

Merci de vos réponses je crois avoir compris et je testerai ca ce soir.

Encore merci et bonne journée

n0str0m0