Discussion :

[did103]

Bonjour à tous,

J'ai un drôle de truc avec le format date.
Je cherche à saisir la date dans un InputBox et à l'afficher dans une cellule.

Pour que le format soit valide dans l'InputBox j'utilise une mise en forme Format:

Code :

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

1
2
Dim règlement as String
règlement = Application.InputBox("Date de règlement", "Saisie", Format(Date, "dd/mm/yyyy"))

La cellule recevant la valeur a un format Date: *14/03/2001

Code :

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

Range("B" & ligne) = règlement    'Date réglement

Si je saisis dans l'InputBox:
29/01/2010 l'affichage est correct

Si je saisis un jour <=12 dans l'InputBox:
11/02/2010 l'affichage inverse date et jour en: 02/11/2010

Késaco

PS: Que ce soit la méthode ou la fonction cela donne la même chose...

[mercatog]

Bonjour,

Code :

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

1
2
Dim reglement As Date
reglement = Application.InputBox("Date de règlement", "Saisie", Format(Date, "dd/mm/yyyy"))

déclaration en Date et non en string

[Qwazerty]

Salut
Je ne vois pas trop pourquoi ça fait ça, quoique, lorsque tu valide la date saisi dans ton InputBox, celui ci revoie du texte, ensuite c'est Excel qui interprète ce texte pour l'afficher dans ta cellule. Visiblement Excel cherche d'abord le mois (format anglais), jusqu'à 12, le jour est interprète comme le mois, passer 12, vu que ça ne correspond plus a un mois, il l'interprète comme le jour...
Je ne vois pas de réponse a cela, mais une solution toute simple serait d'afficher un UserForm avec un composant calendrier dessus, bien plus simple et convivial pour sélectionner une date.
[Edit]Grillé, bien vu pour le As Date, j'avais pas fait attention, par contre une bonne habitude a prendre est d'utiliser les fonctions de transtypage, vois CDate pour le cas présent.[/Edit]
++
Qwaz

[did103]

Merci à vous deux.
En +, je suis allé chercher le Dim en haut de procédure!
Me suis rendu compte de rien...