Discussion :

[grisan29]

bonjour a vous tous

j'ai un usf avec 2 textbox(1 et 2) et un bouton pour chaque textbox
justement comment puis je faire pour que chaque bouton inscrive les dates dans chaque textbox via le calendar
chaque bouton est relié a son textbox, ils ouvrent chacun le calendrier via le code

Code :

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

calendar.Show

et le clic sur le calendar se fait via le code

Code :

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

1
2
3
Private Sub Calendar1_Click()
essai_calendrier.TextBox1.Value = Me.Calendar1.Value
 End Sub

mais que chaque bouton ouvrant le meme calendar puisse écrire suivant le clic sur commandbutton1 où commandbutton2 dans leurs textbox respectif
et je voudrais également qu'a l'intialisation du calendar qu'un textbox(où label) sur l'usf du calendar puisse prendre la date au format que j'ai essayer sans succes par

Code :

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

calendar.TextBox1.NumberFormat = "dd-mmm-yy" ' Renvoie "Vendredi 27 janvier 1993"

trouvé sur l'aide vba
tout ceci afin de l'utiliser qu'un seul calendar

Merci de votre compréhension

Pascal

[Daniel.C]

Bonjour,

Supprime ce code :

Code :

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

1
2
3
Private Sub Calendar1_Click()
essai_calendrier.TextBox1.Value = Me.Calendar1.Value
 End Sub

et ajoute :

Code :

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

1
2
3
Private Sub CommandButton1_Click()
    Me.TextBox1.Text = Format(Me.Calendar1.Value, "dd-mmm-yy")
End Sub

pareil pour l'autre commandbutton.
Note que tu obtiendras :
"27-01-93" et non pas "Vendredi 27 janvier 1993"" comme suggéré par ton commentaire.
Tu ne peux pas employer "NumberFormat" pour un textbox, cette propriété étant réservée à un objet "Range".

[grisan29]

bonjour Daniel.C

merci de ta réponse, mais le comandbutton1 est sur l'usf essai_calendrier, je te joints un fichier exemple pour une meilleure compréhension

Pascal

[Daniel.C]

Dans un module standard, mets :

Code :

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

Public Dat As Date

Dans l'userform Calendar, tu peux supprimer le command button; remplace le code par :

Code :

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

1
2
3
4
Private Sub Calendar1_Click()
    Dat = Me.Calendar1.Value
    Unload Me
End Sub

Dans l'userform essai_calendrier, mets :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
calendar.Show
Me.TextBox1.Text = Format(Dat, "dd-mmm-yy")
End Sub
 
Private Sub CommandButton2_Click()
calendar.Show
Me.TextBox2.Text = Format(Dat, "dd-mmm-yy")
End Sub

[grisan29]

bonjour daniel c

un grand merci de ta réponse qui est on ne plus adéquate, merci beaucoup de ton savoir en vba

cordialement

Pascal