Bonjour à tous je suis confronté à un petit soucis j'ai une textbox qui alimente ma base de donnée.
dans cette textbox je doit saisir une date de péremption Mois/Année dans ma base de donnée j'ai changer le format en mois années également le soucis c'est quand je valide ma date de mon USF elle s'affiche bien en texte Mois/Année mais pas au format date
j'utilise cette macro pour alimenté ma bd comment puis je faire pour que cela fonctionne en format date.
merci d'avance de votre aide
dans cette textbox je doit saisir une date de péremption Mois/Année dans ma base de donnée j'ai changer le format en mois années également le soucis c'est quand je valide ma date de mon USF elle s'affiche bien en texte Mois/Année mais pas au format date
j'utilise cette macro pour alimenté ma bd comment puis je faire pour que cela fonctionne en format date.
Code:
Private Sub entre()
NL = Worksheets(Temp1.Caption).Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
With Worksheets(Temp1.Caption)
.Cells(NL, 2).Value = T13
.Cells(NL, 3).Value = D1.Caption
[COLOR="red"].Cells(NL, 4).Value = T6 'Textbox date Mois/Année[/COLOR]
.Cells(NL, 9).Value = Val(T5)
.Cells(NL, 8).Value = T7
.Cells(NL, 10).Value = Val(T11)
End With
Unload Me
UserForm1.Show
End Sub
merci d'avance de votre aide