Re afficher date du jour dans Textbox

[B52]

Bonjour le forum,

J'affiche à l'aide d'un bouton mon userform1, dans la textbox1 j'incrémente un numéro (çà marche très bien) et dans la textbox2, je veux afficher la date du jour, mais là ça ne marche pas à chaque ouverture de mon USF...et je ne vois pas pourquoi... si vous avez la solution, je suis preneur, par avance merci.

@+ Stéphane

Ps:Voici mon code

Sub Acceuil_Bouton1_QuandClic()
Worksheets("Feuil1").Select
Rows(4).Select
Selection.Insert
valeur = Range("A5")
With UserForm1

.TextBox1.Value = valeur + 1
.TextBox2.Value = Format(Now, "DD/MM/YY")
.ComboBox1.Text = ""

End With
UserForm1.Show
End Sub

 

[Pascal76]

Bonjour


essaies avec

.TextBox2.Value = Format(Date, "DD/MM/YY")

Pascal

 

[Arnaud]

salut,

rajoute un Load UserForm1 au début de ton code a par si tu a dejé charger ton UserForm avant.

 

[Pascal76]

Re

Oui Arnaud ou autre solution à rajouter dans le Private Sub UserForm_Activate()

Pascal

 

[B52]

Non, ça marche pas avec Date non plus, mais je viens de trouver la solution:

J'ai mis la ligne:
.TextBox2.Value = Format(Now, "DD/MM/YY")
avant:
.TextBox1.Value = valeur + 1
et maintenant ça marche.... va comprendre....

Merci quand même Pascal, @ Bientôt !

Stéphane