Mauvais format de date
Résolu/Fermé
Bourrique66
Messages postés
158
Date d'inscription
mardi 2 juin 2015
Statut
Membre
Dernière intervention
25 septembre 2023
-
3 sept. 2015 à 20:59
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 3 sept. 2015 à 22:21
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 3 sept. 2015 à 22:21
A voir également:
- Mauvais format de date
- Format epub - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format apfs - Guide
- Hp format tool - Télécharger - Stockage
- Format odt - Guide
4 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
3 sept. 2015 à 21:29
3 sept. 2015 à 21:29
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+
Bourrique66
Messages postés
158
Date d'inscription
mardi 2 juin 2015
Statut
Membre
Dernière intervention
25 septembre 2023
2
3 sept. 2015 à 21:54
3 sept. 2015 à 21:54
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
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
3 sept. 2015 à 22:10
3 sept. 2015 à 22:10
As-tu essayé
Range("A" & L).Value = CDate(TextBox1.Value)
A+
Range("A" & L).Value = CDate(TextBox1.Value)
A+
Bourrique66
Messages postés
158
Date d'inscription
mardi 2 juin 2015
Statut
Membre
Dernière intervention
25 septembre 2023
2
3 sept. 2015 à 22:21
3 sept. 2015 à 22:21
Je viens de faire un essai rapidement et apparemment ça marche ,pour le moment je marque résolu et merci encore pour cette réponse ultra rapide .