Format Date issu d'un USF

[dut-dut]

Bonjour,

je suis désolé d'encombrer le forum. J'ai déjà utilisé la fonction recherche mais les réponses obtenues ne m'ont pas parues claires (c'est la fin de journée !) J'aurais donc besoin d'une explication.

J' explique la situation : je n'arrive pas à obtenir la bonne date dans la cellule finale. Je fais appelle à la date du jour à travers le code suivant :

.....
TextBox4.Value = Format(Date, "DD/MM/YYYY")
.....
L2 = ActiveSheet.Range("C65536").End(xlUp).Row + 1
With ActiveSheet
.Range("A" & L2).Value = TextBox1.Value
.Range("B" & L2).Value = TextBox4.Value
end With...


Au final, la date du jour s'affiche bien dans mon userform mais lorsque je valide la saisie, la date qui arrive dans la colonne B n'est plus la même (ex : 7-déc-04 devient 12-juil-04)
J'ai déjà essayé de remplacer la dernière ligne par : ".Range("B" & L2).Value = Format(Date, "DD/MM/YYYY")" mais celà n'a rien changé.

Merci d'avance à ceux qui prendront le temps de lire ce post et de poster une réponse. Guillaume

 

[@+Thierry]

Bonsoir Dut Dut, le Forum

Envoie simplement :
.Range("B" & L2).Value = Date

Tu n'auras plus de souci.

Bonne Soirée
@+Thierry

 

[dut-dut]

C'est ce qui s'appelle : ne pas se compliquer la vie !

Merci Thierry.
(tes didacticiels sont très intéressants... je te dois tout ce que je sais en VBA ;-) )