Contrôle DTpicker s'ouvre à la date du jour

Fermé
elotj60 Messages postés 34 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 2 janvier 2018 - Modifié le 2 janv. 2018 à 17:05
 archer - 2 janv. 2018 à 18:04
Bonjour,

J'ai créé un calendrier avec le contrôle DTpicker. Celui-ci s'affiche parfaitement sur les cellules C3 et D50 de mon fichier Excel. Toutefois, j'ai remarqué que le calendrier ne s'ouvrait pas à la date du jour mais à la date de création de l'Userform, à savoir le 02/01/2018 dans mon cas. J'ai tenté d’insérer les codes suivants sans succès:

Private Sub UserForm_Initialize()
DTPicker1.Value = Now
End Sub

ou

Private Sub UserForm_Initialize()
DTPicker1.Value = Date
End Sub

Vous trouverez ci-dessous le code de mon userform:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = DateClicked

End Sub

Private Sub UserForm_Click()

End Sub

Voici le code de ma feuille excel :

Private Sub worksheet_selectionchange(ByVal target As Range)
If Not Application.Intersect(Range("c3"), target) Is Nothing Then
mycalendar.Show
End If
If Not Application.Intersect(Range("d50"), target) Is Nothing Then
mycalendar.Show
End If
End Sub

En vous remerciant par avance,

3 réponses

Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 304
2 janv. 2018 à 17:01
Bonjour,

A priori nous sommes le 02 Janvier donc la date du jour
0
elotj60 Messages postés 34 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 2 janvier 2018
2 janv. 2018 à 17:16
Bonjour,

Oui car je l'ai créé aujourd'hui mais lorsque j'ouvrirai ce même calendrier en Mars celui-ci s'ouvrira à la date du 2 janvier 2018.
0
elotj60 Messages postés 34 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 2 janvier 2018
2 janv. 2018 à 17:04
Re,

Lorsque je tente de rentrer le code ci-dessous dans l'Userform :

Private Sub UserForm_Initialize()
DTPicker1.Value = Date
End Sub



Le message d'erreur suivant apparaît:



0
Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 304
2 janv. 2018 à 17:20
Dans la mesure ou tu mets DTPicker1.Value = Date , cela s'ouvre à la date du jour de ton système
0
Bonjour
a tu activer mscontc2.ocx dans Outils/Références
A+
Maurice
0