pb affighage date. fonction DTPicker1sous VBA excel

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
 

GROMORICE

Nouveau membre
j'ai trouvé la solution grace à l'aide julien. Il suffisait de changer ma declaration des variables. merci

"global dates as date"
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 060
Membres
1 586 286
Dernier membre
petitangebleu1977
Partager cette page
Haut