Discussion :

[Fludje]

Bonjour,

J'ai réussi à faire apparaitre un calendrier dans une fenetre Userform et je recopie ensuite correctement la date choisi mais pour plus de convialité, j'aimerai que le calendrier s'ouvre à la date du jour.

Pourriez vous m'indiquer d'où vient l'erreur?

Code :

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

1
2
3
Private Sub Calendrier_Activate()
   Calendrier = Date
End Sub

Merci

[joe.levrai]

Bonjour,

sans connaître le "calendrier", comment te répondre ?

Est-ce une classe personnalisée que tu as récupéré, un contrôle DatePicker, autre chose ?

[Invité]

Bonsoir,
Un contrôle calendrier s'ouvre toujours sur la date du jour!

[kiki29]

Salut, voir ici ?

[Fludje]

Bonjour,

Malheureusement, le lien de kiki n'est pas concluant.
Pour repondre à joe.levrai, voici mon calendrier.

[joe.levrai]

Bonjour,

ça ressemble bien à une classe

Il nous faudrait au moins voir le code présent dans le Userform afin de voir comment est "capturé"/"utilisé"/"sélectionné" les valeurs de dates.

Je dis "au moins", car il est éventuellement possible que tout soit géré dans la classe

[Fludje]

Bonjour,

Voici le code complet:

Dans mon userform principal, j'ouvre avec un bouton le calendrier dont voici le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Calendrier_Activate()
   Calendrier = Date
End Sub
Private Sub Calendrier_Click()
    'Copie la date dans la cellule de la fenetre
    DateSaisie = Calendrier
End Sub
Private Sub CommandButton4_Click()
    'Copie la date de la cellule dans la fenetre de saisie
    UserForm1.TextBox4.Value = DateSaisie.Value
    Hide
End Sub

Puis apres avoir valider, je retourne dans le userform principal et j'affiche la date choisie:

Code :

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

1
2
3
'la date du calendrier est copié dans TextBox4 sous la forme jj/mm/aaaa
  date_PV = TextBox4.Value
  TextBox4.Value = Format(TextBox4.Value, "dd/mm/yyyy")