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