Calendar et Combobox

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:

---

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:

---

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:

la première choe que je ferai pour m'assurer que je n'ai pas un problème de compatibililté de variable c'est de définir la variable vDL en variant (à mon humble avis ça devrait être une date..)

Avoir

Bonjour

Il existe déjà un contrôle qui te fait tout cela, le DTpicker (Date and Time DTPicker)

Pourquoi ne pas l'utiliser ?

Starec

Merci pour ces premières réponses.
C'est vrai que le contrôle DT Picker est pas mal et qu'il fait le travail que je cherche à réaliser, mais est-il possible d'ajouter des lignes autres que des dates dans la liste déroulante?
Il se peut que l'utilisateur ne connaisse pas la date exacte, il pourra alors choisir dans une liste : - d'un mois, ou dans 15 jours,...

En tout cas, merci pour ces infos, je continue à chercher

En mettant vDL en Date, ça ne fonctionne pas mieux, mais je pense également que ça peut venir de la variable.
Je l'ai mise en string car je souhaite intégrer dans ma liste déroulante des chaînes de caractère

J'ai trouvé. Enfin, c'est ce qu'on va dire.
J'ai supprimé le combobox et j'en ai recréé un avec exactement le même nom. Et ça marche!

Bref, j'avais dû faire une boulette quelque part!

Merci aux interventions qui m'ont permis d'avancer. Je remercie aussi ma famille, mon producteur, toute la technique...

A bientôt pour de nouvelles aventures.

May the Force be with you