J
JPP
Guest
Bonjour,
Voici mon Pb : j'ai un UserForm sur lequel est placé un Calendar, jusqu'ici tt va bien.
Mon calendrier s'obstine à figer une date antérieur et je n'arrive pas à lui faire afficher la date du jour qui est en cours .
Voici ce que j'ai écrit:
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = 'dd-mmm.yy'
End Sub
Private Sub CommandButton1_Click()
Unload UserForm2
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
Merci par avance si qqn à 1 combine ...
Voici mon Pb : j'ai un UserForm sur lequel est placé un Calendar, jusqu'ici tt va bien.
Mon calendrier s'obstine à figer une date antérieur et je n'arrive pas à lui faire afficher la date du jour qui est en cours .
Voici ce que j'ai écrit:
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = 'dd-mmm.yy'
End Sub
Private Sub CommandButton1_Click()
Unload UserForm2
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
Merci par avance si qqn à 1 combine ...