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

[Philippe Tulliez]

Bonjour,
Peu importe le nom de la UserForm, la procédure événementielle doit être

Code :

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

UserForm_Initialize

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

Il n'y a rien d'anormal. Now donne la date et l'heure du système et Date ne donne que la date, le formatage est valable pour les deux fonctions.

[OrDonc]

Bonjour,

+ Il y a aussi un autre Private Sub Formulaire_Initialize() dans le USF ...

Problème : tu ne peux pas avoir 2 procédures ayant le même intitulé
dans un Module !

[logiclogic]

ca ne marche pas non plus ; j'ai remplacé le textbox par label, et non plus. je vous prépare un fichier exemple. a+

Voici le fichier. Plusieurs voies de réflexion :

1) C'est un USF non un module ? Faut-il ajouter un module, en mettant dans le USF : exécuter le module, à l'ouverture du USF (j'associe au USF un bouton dans le fichier Excel, placé dans un groupe personnalisé dans l'onglet Accueil).
Comment ??

RQ : j'ai pu créer le groupe personnalisé, mais comment faire pour la commande ??? Je travaille sous XLS 2010, et je ne trouve pas. Sous XLS 2003, c'était aussi dans la même boîte de dialogue que pour la création de menu ("groupe perso" n'existait pas).

2) Peut-on par une fonction qui calcule un intervalle de temps ? Ici, en jouant un peu sur la fonction, par exemple : AUJOURD'HUI - AUJOURD'HUI = AUJOURD'HUI, on crée donc une fonction neutre qui sert de

3) Est-il possible que cela une procédure de type FORMAT mais contenu dans la déclaration de la procédure ? Peut-on avoir un Public, puisqu'il s'agit d'une procédure "standarde" c'est-à-dire qui se déclenche à l'ouverture de l'USF ?

Code :

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

1
2
3
4
 
Public Sub TextBox1_format()
    TextBox1.format = format(Now, "dd/mmmm/yy")
End Sub

4) Enfin, peut-on écrire un code sur le USF mais lié à aucune commande, uniquement l'ouverture de l'USF lors de son appel par le bouton de commande sur la feuille Excel.

Question : un USF a-t-il "accès direct" à l'horloge système ? Comment ? par la fonction bien sûr mais il ne s'agit pas d'une boîte de dialogue qui s'affiche mais une date qui apparaît dans un contenant (label ou textbox ancré sur le USF)

Désolé si je mélange un peu de tout.... Je vous donne quelques pistes, car je ne vois pas la solution...

Le fichier ne s'envoie pas, c'est un XLSM. J'ai enregistré sous XLS 97-2003.
bonne chance, une question simple mais un vrai petit-casse tête!!!

[casefayere]

Bonsoir,
recopies simplement ce code dans l'éditeur VBA, et dans l'USF

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Label1 = Format(Now, "dd/mmmm/yy")
'ou pour le textbox
TextBox1 = Format(Now, "dd/mmmm/yy")
End Sub

[Philippe Tulliez]

Bonsoir,
J'ai regardé ton code VBA.

Code :

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

1
2
3
4
5
6
7
 
Private Sub Label1_Initialize()
    Label1.Value = Format(Now, "dd/mmmm/yy")
End Sub
Private Sub TextBox1_Initialize()
    TextBox1.Value = Format(Now, "dd/mmmm/yy")
End Sub

Dans un UserForm
1) Il n'y a pas de procédure événementielle Initialize autre que le UserForm lui même
2) Il n'y a pas de propriété Value dans un Label
Le code ci-dessous t'affichera la date comme valeur dans le TextBox et comme Caption dans ton Label mais j'imagine que cette date ne doit pas se trouver dans ces deux objets
A toi de faire ton choix.

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Initialize()
 TextBox1.Value = Format(Now, "dd/mmmm/yy")
 Label1.Caption = Format(Now, "dd/mmmm/yy")
End Sub

Je te conseille la lecture d'un bon didacticiel sur l'utilisation de UserForm et celui-ci avant de continuer.

[logiclogic]

merci! je vais essayer. Je me suis appuyé sur ce tutoriel...