Probléme format Date et Heure dans TxtBox

[Jonathan]

Bonjour à tous,


Lorsque que je rentre une date dans ma txtbox sous le format suivant :180506 et que je valide ma saisie, je vois apparaître la suivant dans ma cellule execl : 16/03/2394

Et comment mettre un format heur dans une txtbox

Cordialement

Voici mon code de validation :
' Mise en place des données dans la feuille de calcul'
Sheets('EVCarteSPC').Range('B65536').End(xlUp).Offset(1, 0).Value = TxtEquipe
Sheets('EVCarteSPC').Range('C65536').End(xlUp).Offset(1, 0).Value = Format(TxtHeure, 'hh:mm')
Sheets('EVCarteSPC').Range('D65536').End(xlUp).Offset(1, 0).Value = CDate(Txtdate)
Sheets('EVCarteSPC').Range('E65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN1)
Sheets('EVCarteSPC').Range('F65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN2)
Sheets('EVCarteSPC').Range('G65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN3)
Sheets('EVCarteSPC').Range('H65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN4)
Sheets('EVCarteSPC').Range('I65536').End(xlUp).Offset(1, 0).Value = CDbl(TxtN5)

 

[JC de Lorient]

re
évite de changer de fil
essaye plutot de rentrer ta date sous la forme jj/mm/aa (donc mettre les slashs

 

[jonathan]

Ok,

Merci, bonne journée

 

[Bebere]

bonjour Jonathan,Jc de lorient
si tu n'as que des années 2000
sinon entrer l'année entière(18052006) et changer
Right(n, 2) en Right(n, 4)

DateSerial(année,mois,jour)

n=180506

Cells(1, 1) = DateSerial(Right(n, 2), Mid(n, 3, 2), Left(n, 2))

à bientôt