Calendrier vers 2 textbox

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:

---

calendar.Show

---

et le clic sur le calendar se fait via le code

Code:

---

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:

---

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

Bonjour,

Supprime ce code :

Code:

---

1 2 3

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

---

et ajoute :

Code:

---

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".

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

Dans un module standard, mets :

Code:

---

Public Dat As Date

---

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

Code:

---

1 2 3 4

Private Sub Calendar1_Click() Dat = Me.Calendar1.Value Unload Me End Sub

---

Dans l'userform essai_calendrier, mets :

Code:

---

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

---

bonjour daniel c:ccool:

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

cordialement

Pascal