Bonjour a tous et toutes
je viens vers vous car je ne trouve pas la solution a mon problème.
Via un userform je saisie des données sur une feuille le problème ce pose sur le DTpicker.
lorsque je valide a l'écran est afficher la date jj/mm/aaaa . Parfait
Mais quand on va sur la cellule ou ce trouve la date j'ai l'heure en plus.
Comment faire pour ne plus avoir l'heure et uniquement la date.
Voici le code que j'utilise pour envoyer les donné.
Private Sub CommandButton1_Click()
Dim plg As Range
Set plg = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)(2)
plg = UserForm1.ComboBox1
plg.Offset(, 1) = UserForm1.TextBox1
plg.Offset(, 2) = UserForm1.TextBox2
plg.Offset(, 3) = UserForm1.TextBox3 'adress3
plg.Offset(, 4) = UserForm1.DTPicker1.Value 'date de demande
plg.Offset(, 5) = UserForm1.TextBox4 'n° demande
plg.Offset(, 8) = UserForm1.TextBox5 'nombre enregistreur
plg.Offset(, 6) = UserForm1.DTPicker4.Value 'date autorisation
plg.Offset(, 7) = UserForm1.TextBox7 'N° arreter
plg.Offset(, 9) = UserForm1.TextBox8 'NB camera
plg.Offset(, 10) = UserForm1.DTPicker5.Value 'Date mise en service
plg.Offset(, 11) = UserForm1.TextBox10 'Adresse ip
plg.Offset(, 12) = UserForm1.DTPicker6.Value 'Date de presentation
plg.Offset(, 13) = UserForm1.TextBox11 'Commentaire
Unload Me
UserForm1.Show
End Sub
et le fichier
Merci de votre aide et je reste dispo pour toute question eventuel
et bonne Année