Format date dans Userform

Bonjour à tous !

J'ai créé un USF pour remplir une BDD, tout fonctionne, mais le soucis est que dans l'USF, il y a deux dates à saisir. Et une fois dans ma BDD, elles sont au format texte, et non au format date. Je ne maîtrise pas vraiment VBA, ce que j'ai déjà codé a été fait à partir d'un exemple, donc je ne sais pas quoi modifier pour que ça fonctionne...

Voici mon code actuel :

Private Sub add_Click()

Dim L As Integer

L = Sheets("Liste CRD").Range("b50").End(xlUp).Row + 1

Range("B" & L).Value = TextBox1

Range("C" & L).Value = TextBox2

Range("D" & L).Value = TextBox5

Range("E" & L).Value = TextBox3

Range("G" & L).Value = TextBox4

End Sub

--> les textbox 1, 2 et 5 sont des textes, ce sont les 3 et 4 qui devraient être des dates

J'ai trouvé cette ligne de code dans un autre sujet traitant d'un problème similaire, mais je ne sais pas où la placer dans mon code, ni quelles variables adapter...

Cells(LigneSuivante, 1) = Format(CDate(TextBoxDate), "mm/dd/yyyy")

Merci d'avance pour votre aide

BOnjour.

Private Sub add_Click()
Dim L As Integer
L = Sheets("Liste CRD").Range("b50").End(xlUp).Row + 1
Range("B" & L).Value = TextBox1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox5
Range("E" & L).Value = Format(CDate(TextBox3), "mm/dd/yyyy")
Range("G" & L).Value = Format(CDate(TextBox4), "mm/dd/yyyy")
End Sub

Puisque les textbox 3 et 4 sont des dates alors c'est sur celles-ci qu'on applique le format voulu.

Bonjour,

Tu peux tester la macro suivante

Private Sub add_Click()
Dim L As Integer
L = Sheets("Liste CRD").Range("b50").End(xlUp).Row + 1
Range("B" & L).Value = TextBox1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox5
Range("E" & L).Value = Format(CDate(TextBox3), "mm/dd/yyyy")
Range("G" & L).Value = Format(CDate(TextBox4), "mm/dd/yyyy")
End Sub

En espèrant que cela t'aide

Edit : @ xmenpl ... Solution Identique

Génial ça marche parfaitement, merci à vous deux

Content de savoir ton problème résolu ...

Génial ça marche parfaitement, merci à vous deux

Tu avais déjà trouvé la bonne ligne de code il fallait juste que tu vois comment utiliser le Format

dans tes propres lignes.

Rechercher des sujets similaires à "format date userform"