vba : souci formatage de date

[miguelangelo]

Bonjour à tous, forum,

j'ai un souci de formatage de date pour lequel je n'ai pas de solution. vous trouverez dans le fichier joint l'usf en double cliquant sur G5.

dans l'exemple, en double cliquant sur G5, vu que la date de fin de contrat (M5) est supérieur à aujourd'hui, l'usf est complet. (ex1)si la date M5 est inférieure à aujourd'hui l'usf se présente plutot comme à droite (ex2) :

ex 1
ex2

en modifiant la date de fin dans l'usf, elle se reporte dans la cellule M5 via le code
(origine.Offset(0, 6).Value = Format(fin, "dd/mm/yy")

sauf que l'information enregistrée n'est plus reconnue en tant que date. Suite à la modification, si je mets par exemple comme date de fin le 31/03/2012, normalement je devrais avoir l'usf réduit. Ce n'est pas le cas.
en quittant l'usf est en double cliquant sur la cellule date, la valeur se met en format date.

Please Help ...

Merci d'avance

 

[david84]

Re : vba : souci formatage de date

Bonjour,
ton fichier est protégé...
sinon, à tout hasard

(origine.Offset(0, 6).Value = Format(CDate(fin), "dd/mm/yy")

A+

 

[miguelangelo]

Re : vba : souci formatage de date

merci pour ton retour David84 mais c'est pas encore ca. en modifiant sur une date inférieure, il ne comprend pas que c'est une date.

le double click sur la cellule G5 lance la macro "maj" qui alimente l'USF. est ce que ca pourrait être là ?

Details.fin.Value = Selection.Offset(0, 6).Value


Merci encore.

ps : fichier déverrouillé