Affichage de la date en VBA

Bonjour le Forum,

Dans Textbox je voudrai qu'en saisissant une date "020207" celà m'affiche le resultat 02/02/07.

Merci d'avance

A+

Bonjour,

dans le code en VBA tu écris

[J11].Value = Format(jour, "dd /mm/ yy")

J11 est la cellules où la date doit s'inscire ,a toi de l'adapter.

A +

Bonjour Callou, Henri

Si tu veux que le texte soit affiché dans le textbox, dans l'événement

textbox = CDate(Left(textbox, 2) + "/" + Mid(textbox, 3, 2) + "/" + Right(textbox, 2))

Pour transformer cette valeur texte du texbox au format J/MM/AAAA, pour une valeur numérique "date", utilise la fonction de conversion.

CDate(vTextbox)

@+Jean-Marie

Merci Henri et Jean-Marie,

Ma ligne de commande est :

Range("J65536").End(xlUp).Offset(1, 0).Value = CDate(Dlc)

Quand je tape 030307 cela m'affiche 22/12/1982

A+

Merci Jean-Marie,

Je l'ai remplacé par :

Range("J65536").End(xlUp).Offset(1, 0).Value = CDate(Left(Dlc, 2) + "/" + Mid(Dlc, 3, 2) + "/" + Right(Dlc, 2))

ca marche Impec !

A+ le Forum