Contrôle calendar et deux champs dates dans le même USF

Bonsoir le forum,

J'ai inséré un contrôle calendrier dans un userform et juste au dessus deux textbox qui s'intitule l'un "date de début" et l'autre "date de fin". Est-possible en cliquant sur le calendrier d'alimenter dans un premier temps la "date de début" et dans un deuxième temps la "date de fin" ?

Merci.

Titouan

Bonjour Titouan,

Est-ce ceci que tu souhaites ?

Si c'est le cas, regardes les codes et les procédures dans le fichier joint.

Bon courage

Et1000lio

Bonjour,

J'ai trouvé ce code mais il ne permet pas de choisir le textbox. Il impose de renseigner la date du textbox1 et après le textbox2.

Option Explicit
Dim c As Byte
Private Sub Calendar1_Click()
c = IIf(c < 2, c + 1, 1)
Me.Controls("TextBox" & c) = Calendar1.Value
End Sub

Si quelqu'un peut éclairer ma lanterne.

Merci

Bonjour et1000lio,

Merci pour ta réponse. Dans mon cas, le calendrier est dans l'userform juste en dessous des dates à renseigner et non pas dans un autre userform.

Titouan

Titouan,

Une autre possiblité = Userform2

Choix par DTPicker1 ou DTPicker2 et avec date non visible à l'ouverture du formulaire (DTPicker : propriétés CheckBox = Vrai)

Et1000lio

@+

J'ai trouvé la boulette dans la propriété du textbox Enabled = False au lieu de True.

Je peux sélectionner le texbox1 ou textbox2 dans l'ordre voulu.