Discussion :

[duplaly]

Bonjour
j'ai 6 userform avec des textbox que je voudrais insérer la date à partir d'un calendrier unique, mais je n'arrive pas à écrire le code vba.
quelqu'un peut-il me donner un coup de pouce.
Merci

[Jean-Philippe André]

qu'entends tu ici par "calendrier unique" ?

Sans savoir cela, j'ai des doutes sur notre capacité à te venir en aide

Merci donc d'etre plus explicite dans ta description, quitte à donner un ou plusieurs exemples de ton/tes objectif(s)

[duplaly]

Bonjour Cher forum,

Voilà, j'ai un calendrier qui alimente un textbox dans un userform. pour saisir des dates.
Mais je voudrais utiliser le même calendrier à partir d'autres userforms pour ne pas créer un calendrier pour chaque textbox.. en fait dans chacun des 6 userforms, je dois saisir date début et date fin, soit 2 textbox à alimenter par userform.
voir mon code actuel pour alimenter un textbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Calendar1_Click()
Heures.TextBox1.Value = Format(Calendar1.Value, "dd-mmm-yyyy")
 
 Unload Me
 
End Sub
 
Private Sub UserForm_Activate()
Calendar1 = Date
End Sub
 
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Calendar1.Show
 
End Sub

[kiki29]

Salut, dans la FAQ http://excel.developpez.com/faq/?page=Dates voir en particulier http://excel.developpez.com/faq/?pag...CalenDynamique en l'adaptant