Mauvais format de date
Résolu
Bourrique66
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
Bourrique66 Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
Bourrique66 Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Mauvais format de date
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Format doc - 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