GROMORICE
Nouveau membre
BONJOUR,
j'utilise un calendrier dans une fenetre(userform) avec la fonction "DTPicker1" et j'aimerais que lorsqu'une date
est validée par l'appui sur le bouton ok, qu'elle soit réécrite dans une autre feuille.
Or quand j'execute ma macro, la date inscrite dans la cellule est le 0-janvier-1900 et non la date du calendrier. connaissez vous le probleme?
merci pour votre attention.
sous progs:
Private Sub CMD_ok_Click()
Dates = .DTPicker1.CalendarTitleBackColor
End sub
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
morceau de macro:
Sub Remplir_Atelier_Tournage()
Sheets("AtelierT").Activate
Range("A2").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Dates
End sub
j'utilise un calendrier dans une fenetre(userform) avec la fonction "DTPicker1" et j'aimerais que lorsqu'une date
est validée par l'appui sur le bouton ok, qu'elle soit réécrite dans une autre feuille.
Or quand j'execute ma macro, la date inscrite dans la cellule est le 0-janvier-1900 et non la date du calendrier. connaissez vous le probleme?
merci pour votre attention.
sous progs:
Private Sub CMD_ok_Click()
Dates = .DTPicker1.CalendarTitleBackColor
End sub
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
morceau de macro:
Sub Remplir_Atelier_Tournage()
Sheets("AtelierT").Activate
Range("A2").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = Dates
End sub