Bonjour,

J'ai bien lu un post qui traitait déjà de ce sujet, mais il me reste une erreur, j'espère que vous pourrez m'aider.

J'ai un Combo :"ComboDLCA"
Une variable "vDL" en String.
Un calendrier Calendar1.

Je souhaite que l'utilisateur clique dans le combo pour faire apparaître le calendrier, qu'il sélectionne la date et qu'elle s'affiche dans le combo.


Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Calendar_1 Click()
 
vDL = Calendar1.Value
FrmNouveauContact.ComboDLCA.Value = vDL
FrmNouveauContact.Calendar1.Visible = False
 
End Sub
 
Sub ComboDLCA_Enter()
 
FrmNouveauContact.Calendar1.Visible = True
 
End Sub
L'erreur apparaît à la ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
FrmNouveauContact.ComboDLCA.Value = vDL

c'est une erreur 380:

Impossible de définir la propriété Value. Valeur de propriété non valide.

J'ai essayé le code issu du post, mais ça me crée des erreurs aussi...

Merci d'avance pour vos idées.

ps: