TextBox pré-rempli avec date du lendemain

[JerCaz]

Bonjour le forum,

Dans le cadre de la création d'un fichier excel à des fins professionnelles, j'ai créé un TextBox qui s'exécute à partir d'un UserForm.
Mon objectif est que ce TextBox affiche par défaut dans le champ qui doit être renseigné par l'utilisateur la date du lendemain. Ainsi, si c'est la bonne information, l'utilisateur n'a rien à remplir dans ce textbox, et il peut passer au textbox suivant.
Dans l'état actuel, mon textbox affiche par défaut un champ vide:
http://www.imagehotel.net/?from=8te7krkybc.jpg

J'ai essayé de modifier dans les propriétés de mon textbox le champ "Text" ou le champ "Value", en y mettant des formules style Date + 1 ou Aujourdhui + 1, voire en mettant ces fonctions dans une cellule de ma feuille (par exemple en M2) et en mettant les références de cette cellule dans le champ "Value":
http://www.imagehotel.net/?from=v2g5uc1im2.jpg

Le problème, c'est que dans ce cas, dans mon champ apparait bêtement le texte "Date + 1", etc...
http://www.imagehotel.net/?from=2xhg4wlsb0.jpg

Quelqu'un connaitrait-il la syntaxe pour pré-remplir un champ dans un TextBox avec une date variable?
Vous remerciant par avance pour votre aide,
cordialement,
JerCaz

 

[Pierrot93]

Re : TextBox pré-rempli avec date du lendemain

Re

essaye en modifiant le code du bouton comme suit :

Sub Bouton1_QuandClic()
UserForm1.Label1.Caption = " Nous sommes le " & Format(Date, "dd/mm/yyyy")
UserForm1.TextBox1.Value = Format(Date + 1, "dd/mm/yyyy")
UserForm1.Show
End Sub

@+

 

[Pierrot93]

Re : TextBox pré-rempli avec date du lendemain

Re

pour renvoyer dans la cellule, je pense qu'il faut utiliser "CDate" :

Range("A5").Value = CDate(TextBox1.Value)

@+

 

[JerCaz]

Re : TextBox pré-rempli avec date du lendemain

UN GRAND MERCI !!!!!!
La solution était de modifier le code du bouton:

UserForm1.TextBox1.Value = Format(Date + 1, "dd/mm/yyyy")

C'est parfait, ça marche !!!

Ce que je ne comprends pas, par contre, c'est pourquoi ça réagissait de cette façon sur mon PC, et ça réagissait comme je le souhaitais sur d'autres PC...
Mystère...

En tout cas, merci beaucoup à tous ceux qui se sont penchés sur mon problème 😉