Format Date Mois Année erreur de #Nombre

creolia

XLDnaute Impliqué
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.

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
 

Discussions similaires