Discussion :

[Bocage]

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

[Bocage]

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

[Archampi]

Bonjour Bocage

Essaie ceci:

Code :

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

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

[Bocage]

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

[Archampi]

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 :

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

1
2
3
4
5
6
 
Private Sub Calendar1_NewMonth()
 
TextBoxDate.Text = Calendar1.Value
 
End Sub

Bonne chance

[Bocage]

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