envoyer date de txtbox à cellule

[Alguiche]

Boinsoir à tous,

Un petit problème pour que mon entrée date ne soit pas du texte dans mes cellules. Le code ci-joint ne change rien.

Range('a65536').End(xlUp).Offset(0, 2).Value = TxtDate
Range('a65536').End(xlUp).Offset(0, 2).Value = _
Format(Range('a65536').End(xlUp).Offset(0, 2), 'dd.mm.yy')

Merci pour votre aide

Al

 

[myDearFriend!]

Bonsoir Alguiche,

Tu peux essayer :

Range('A65536').End(xlUp).Offset(0, 2).Value = cDate(TxtDate)

Cordialement,

 

[Alguiche]

Bonsoir MyDearFriend,

Merci beaucoup pour ton aide.

Bonne nuit
Al