Mauvais format de date
Résolu
Bourrique66
Messages postés
166
Statut
Membre
-
Bourrique66 Messages postés 166 Statut Membre -
Bourrique66 Messages postés 166 Statut Membre -
Bonjour,
J'utilise un formulaire dans lequel la date ce met avec ce code:
Private Sub TextBox1_Change()
TextBox1 = Date
End Sub
Dans le formulaire en question la date et bien au bon format(03/09/2015)mais dés que je valide le formulaire la date dans le tableau se transforme en (09/03/2015),j'aimerais savoir si on peut remédier à ce problème. Merci par avance.
J'utilise un formulaire dans lequel la date ce met avec ce code:
Private Sub TextBox1_Change()
TextBox1 = Date
End Sub
Dans le formulaire en question la date et bien au bon format(03/09/2015)mais dés que je valide le formulaire la date dans le tableau se transforme en (09/03/2015),j'aimerais savoir si on peut remédier à ce problème. Merci par avance.
A voir également:
- Mauvais format de date
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Format dat - Guide
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
4 réponses
Bonjour,
Tu ne dis pas comment est effectué l'enregistrement de la date du formulaire vers le tableau.
A+
Tu ne dis pas comment est effectué l'enregistrement de la date du formulaire vers le tableau.
A+
Re bonjour,
la validation ce fait à l'aide du code:
Private Sub Valider_Click()
Dim L As Integer
L = Sheets("jaugeage").Range("a65536").End(xlUp).Row + 1
'Permet de se positionner sur la dernière ligne de tableau NON VIDE
Range("A" & L).Value = TextBox1.Value 'Insère la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox3.Value 'Insère la donnée de la textbox1 dans la colonne B
'et à suivre....
Range("C" & L).Value = TextBox2.Value
Range("K" & L).Value = TextBox4.Value
Range("L" & L).Value = TextBox5.Value
Range("O" & L).Value = TextBox6.Value
Range("P" & L).Value = TextBox7.Value
Range("S" & L).Value = TextBox8.Value
Range("T" & L).Value = TextBox9.Value
Range("Y" & L).Value = TextBox10.Value
Unload Me
jaugeage.Show vbModeless
End Sub
j'ais essayer plusieurs format de date mais rien ni fait
la validation ce fait à l'aide du code:
Private Sub Valider_Click()
Dim L As Integer
L = Sheets("jaugeage").Range("a65536").End(xlUp).Row + 1
'Permet de se positionner sur la dernière ligne de tableau NON VIDE
Range("A" & L).Value = TextBox1.Value 'Insère la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox3.Value 'Insère la donnée de la textbox1 dans la colonne B
'et à suivre....
Range("C" & L).Value = TextBox2.Value
Range("K" & L).Value = TextBox4.Value
Range("L" & L).Value = TextBox5.Value
Range("O" & L).Value = TextBox6.Value
Range("P" & L).Value = TextBox7.Value
Range("S" & L).Value = TextBox8.Value
Range("T" & L).Value = TextBox9.Value
Range("Y" & L).Value = TextBox10.Value
Unload Me
jaugeage.Show vbModeless
End Sub
j'ais essayer plusieurs format de date mais rien ni fait