Discussion :

[malabarbe]

Bonjour,

Je saisis la date dans InputBox
par msgbox cela s'affiche bien
mais inverse l'écriture dans la cellule

- saisie : 11/06/2009
- msgbox : 11/06/2009
- cellule : 06/11/2009

je ne comprends pas pourquoi

[drakkar_agfa]

Bonjour,

une idée comme ça, est-ce que le format de cellule est ok?
De ce que je vois, tu veux une format de date anglaise tandis que la cellule d'excel doit être française...

Regarde dans le format de cellule, dans date, il a plusieurs possibilités de format de date.

C'est "peut-être" aussi simple que ça!

[Invité]

Bonjour,

En cas de problème vous pouvez aussi essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dat = InputBox("Entrez la date")
Cells(1, 1) = DateSerial(Right(dat, 4), Mid(dat, 4, 2), Left(dat, 2))

[malabarbe]

Non, rien n'y fait

Serai-t'il possible de définir le format (texte) de la cellule
de destination avant d'écrire dans celle-ci ?

A vous lire

[Krovax]

En reprenant le code de jacques jean

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dat = InputBox("Entrez la date")
Cells(1, 1) = DateSerial(Right(dat, 4), Mid(dat, 4, 2), Left(dat, 2))
Cells(1, 1).NumberFormatLocal = "jj/mm/aaaa"

Chez moi ca fonctionne au poile

[malabarbe]

Incroyable !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Cells(1, 1).NumberFormatLocal = "jj/mm/aaaa"

Ecrit 05/31/2009

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Cells(1, 1).NumberFormatLocal = "mm/jj/aaaa"

Ecrit 31/05/2009

Va comprendre Charles !

Et pourquoi ?