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
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.