[XL 2003] Affichage calendrier

[gangsterus]

Bonjour,

Sur un formulaire, j'ai un combobox et un calendar. Je souhaite faire en sorte que lorsque je clique sur le combobox, le calendrier s'affiche. L'utilisateur a alors la possibilité de choisir ce qui est dans le menu déroulant ("dans un mois", "dans trois mois", "demain",...) ou bien une date précise dans le calendrier si besoin.
Dès qu'il a fait son choix (dans le menu déroulant ou sur le calendrier), le calendrier disparaît.

J'ai donc écrit ce code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub ComboDLCA_Enter()
FrmNouveauContact.Calendar1.Visible=True
End Sub
 
Private Sub ComboDLCA_Change()
FrmNouveauContact.Calendar1.Visible=False
End Sub
 
Private Sub Calendar1_DateClick(ByVal DateClicked As Date)
 
FrmNouveauContact.ComboDLCA.Value=FrmNouveauContact.Value
FrmNouveauContact.Calendar1.Visible=False
 
End Sub

Et finalement, ça ne fonctionne pas. Le menu déroulant déroule, mais le calendrier ne s'affiche pas...
La propriété "Visible" du calendrier est True au départ, puis quand je lance le chargement du formulaire, je lui donne la date du jour et je le fais disparaître.

J'avoue que je ne comprends pas pourquoi ça ne fonctionne pas.

Merci par avance pour votre aide.