Discussion :

[logiclogic]

Bonjour,

Une question toute simple... mais pour laquelle je n'ai pas trouvé de réponse.
J'ai un USF avec une TextBox qui doit contenir la date d'aujourd'hui, dont j'ai un premier code (qui ne marche pas) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox3_Load()
  Dim vDate As Date
  vDate = Format(Now, "dd/mm/yyyy")    'La date doit être au format "27 Mars 2011"
End Sub

merci.

[chyanon]

Bonjour,

Ça doit suffire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub UserForm_Initialize()
TextBox1.Value = Date
End Sub

[logiclogic]

non Il s'agit de mettre une date dans une zone bien précise (non la userform). J'ai opté pour la textBox, mais faut-il un intitulé ??

[chyanon]

Je n'avais pas vu pour le mois en lettres !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub UserForm_Initialize()
 
TextBox1.Value = Format(Now, "dd/mmmm/yy") 'mmmm pour le mois en lettre
 
End Sub

[logiclogic]

marche pas

[Invité]

Bonjour

marche pas

Qu'est-ce qui ne marche pas ? Un message d'erreur ?

Le nom de la zone de texte est peut-être à changer, non ? par rapport à l'exemple que t'a donné chyanon.

Philippe

[logiclogic]

Bonjour, merci. Message d'erreur et pas message d'erreur... en plus clair : voici le code, placé dans le USF. J'ai donné un Name au USF ("Formulaire"), donc, je le remplace dans "private..."

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Formulaire_Initialize()
TextBox3.Value = Format(Now, "dd/mmmm/yy") 'mmmm pour le mois en lettre 
End Sub

En exécutant, un (nouveau) message d'erreur apparaît : "Erreur de compilation : Nom ambigu détecté : Formulaire_Initialize"
Nouveau car les premières fois, il n'y avait pas ce message, mais le formulaire s'affichait sans qu'il y ait de date dans le TextBox3.

Votre code me paraît un peu anormal : (Now, "dd...) ??? (désolé Chyanon)

+ Il y a aussi un autre Private Sub Formulaire_Initialize() dans le USF et de même en exécutant à son niveau, le même message apparaît.

Où se situe ce problème de compilation ??? merci xD