Format Date Mois Année erreur de #Nombre

[creolia]

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.

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

 

[Pierrot93]

Re : Format Date Mois Année erreur de #Nombre

Bonjour,

essaye la fonction "cdate", à condition que la valeur saisie soit bien une date...

Cells(NL, 4).Value = CDate(T6)

bon après midi
@+

 

[creolia]

Re : Format Date Mois Année erreur de #Nombre

Bonjour pierrot 93

Merci pour ton aide sa marche super bien
je te souhaite un bon week end

à bientot