Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transformation intempestive de jj/mm en mm/jj

J

JOjo

Guest
Bonjour le forum,


Je saisi une date dans un formulaire comme par exmple le 01/02/03
(1 février 2003),
cette date m'est restituée 02/01/03 : 2 janvier 2003.

La saisie est faite dans un textbox après reformatage !
strDateValidité = Format(UserForm1.DATE.Value, "dd/mm/yyyy")
Range(ActiveWorkbook.Names("DateValidité").Value).Value = strDateValidité

et la cellule qui correpsond au nom est formaté en jj/mm/aaa... mais cela n'y fait rien !

Mais si je saisi une date moisn ambiguë, 20/01/03, ca marche !!!

Help please. Merci d'avance.
 
J

JOjo

Guest
Bonjour,

J'ai trouvé la parade :
Il suffit de repasser la donnée en mode date numérique :



strDateValidité = Format(UserForm_0_MenuG.DATE.Value, "dd/mm/yyyy")
Range(ActiveWorkbook.Names("DateValidité").Value).Value = DateValue(strDateValidité)
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…