Useform utilisation Calendar Click

Bonjour/soir Forum

Vous l'aurez deviné, je suis débutante en VBA.

Est ce qu'il est possible de donner la valeur de la sélection courante du Calendrier à CalendarX.value avec "on click". Je n'y arrive pas.

Pourtant je peux lui donner une valeur par défaut lors de l'initialisation (now).

Merci de votre aide,

Bo

En fait ca marche si l'on "clique" sur le jour mais pas seulement sur le mois ou l'année...tordu...

Bonjour Bocage

Essaie ceci:

Code:

---

1 2 3 4 5 6

If IsDate(TextBox1.Text) Then Calendar1.Value = TextBox1.Text Else Calendar1.Value = Date End If

---

"TextBox1" est le contrôle qui doit contenir et recevoir la date

Bonne chance

Bonjour Archampi, Forum

Oui effectivement ca marche bien à condition que l'on change le jour du mois. Mais la fonction click ne réagit pas aux changements dans les menus déroulants de mois ou de l'année - sans changement de jour - Dans le cas de mon application, c'est ce qui sera le plus utilisé...je pensais même à cacher les jours du mois..

Une idée ? ca sent le sur mesure et j'aimerais éviter le plus possible

Merci de ton aide

Bo

Bonjour Bocage

Essaie ceci dans l'événement NewMonth du Calendar.
Je n'ai jamais utilisé mais ça devrait marcher aussi. Évidemment il faut faire la même chose dans l'événement Click.

Code:

---

1 2 3 4 5 6

Private Sub Calendar1_NewMonth()   TextBoxDate.Text = Calendar1.Value   End Sub

---

Bonne chance

Bonjour/soir forum Archampi

Excusez-moi, ou en étions nous,

j'ai fait comme notre collègue Ataya, qui avait le même pb en 2008 et qui a eu moins de chance et j'ai placé des "debug" partout pour réaliser que tant que le jour reste indéterminé - il n'y a pas de valeur pour .day .month et .year (tous=0) bien que l'événement NewMonth soit reconnu.

Me serait-il possible de fixer le jour de façon logicielle...

A suivre

Bo