Inversion des chiffres dans une date

3 réponses

arnaud

09/02/2005 à 11:36

Bonjour à tous !
J'ai une userform avec un champ TBDATE dans laquelle on doit inscrire la
date.

Dans l'initialise de l'userform, j'ai mis :
TBDATE = Date

Quand je lance l'userform, j'ai bien la bonne date 09/02/2005.
Je récupère cette valeur pour compléter un courrier :

Range("Listes!AB2").Value = TBDATE.Text

La date que je récupère est inversée : 02/09/2005.
j'ai beau changer le format dans ma cellule, rien n'y fait !

Comment puis -je récuperer ma vraie date dans mon courrier ??

Merci de votre aide !
Arnaud

3 réponses

Michel Gaboly

09/02/2005 à 12:27

Bonjour,

Si le contenu du Textbox est seulement là à titre informatif et n'est
pas censé être modifié, le + simple est

Range("Listes!AB2") = Date

NB - Le .Value, n'est pas nécessaire car c'est la propriété par défaut
de l'objet Range.

Sinon, de manière + générale, utilise la fonction de conversion CDate :

Range("Listes!AB2").Value = CDate(TBDATE)

Le .Text n'est pas non plus nécessaire

Bonjour à tous !
J'ai une userform avec un champ TBDATE dans laquelle on doit inscrire la
date.

Dans l'initialise de l'userform, j'ai mis :
TBDATE = Date

Quand je lance l'userform, j'ai bien la bonne date 09/02/2005.
Je récupère cette valeur pour compléter un courrier :

Range("Listes!AB2").Value = TBDATE.Text

La date que je récupère est inversée : 02/09/2005.
j'ai beau changer le format dans ma cellule, rien n'y fait !

Comment puis -je récuperer ma vraie date dans mon courrier ??

Merci de votre aide !
Arnaud

--
Cordialement,

Michel Gaboly
www.gaboly.com

arnaud

09/02/2005 à 14:29

Cette ligne est parfaite :

Range("Listes!AB2").Value = CDate(TBDATE)

Merci beaucoup !
Arnaud

Michel Gaboly

09/02/2005 à 14:49

De rien ;-))

Cette ligne est parfaite :

Range("Listes!AB2").Value = CDate(TBDATE)

Merci beaucoup !
Arnaud

--
Cordialement,

Michel Gaboly
www.gaboly.com

Inversion des chiffres dans une date

3 réponses

Veuillez sélectionner un problème