Userform + format now +mise à jour auto d'un textbox ne marche pas...

[passifacile]

Bonjour,

Je cherche à ouvrir un userform en insérant automatiquement la date du jour au format jj.mm.aaaa

J'ai essayé ceci, qui ne fonctionne pas (voir exemple annexé) :

Option Explicit
Dim Vazy As Date

Private Sub UserForm_Initialize()
Vazy = Format(Now, "jj/mm/aaaa")
TextBoxDate.Value = Vazy
End Sub


Private Sub CommandButtonOK_Click()

Sheets("Test_Date").Range("A1").Value = Vazy
Sheets("Test_Date").Range("A2").Value = Label1.Caption
End Sub


Qu'ai-je fait de faux ?


Merci d'avance pour vos lumières (Chez moi, il fait nuit...)

 

[Pierrot93]

Re : Userform + format now +mise à jour auto d'un textbox ne marche pas...

Bonjour

essaye ceci :

vazy = Format(Date, "dd/mm/yyyy")

bon après midi
@+

 

[passifacile]

Re : Userform + format now +mise à jour auto d'un textbox ne marche pas...

Lumineux ! même en laissant "Now", il suffit de préciser dd/mm/yyyy... et non jj/mm/aaaa !!!

1'000 mercis, et bon après-midi