Discussion :

[Mapokko]

Salut,
sur mon userform je veux afficher la date (Nous sommes le : ....) et l'heure ( il est maintenant :....) ou bien afficher une horloge qui fonctionne
Merci
Cordialement

[Jannus]

Salut,

Et quel est le problème exactement ?
Tu as regardé dans la FAQ ?

[Mapokko]

Comment faire cela ? priere de me faire un fichier type et merci

[Jannus]

Tu n'as pas l'impression de pousser le bouchon un peu loin ?
Personne n'est ici pour faire ton travail.
Si tu veux des informations, tu regardes la FAQ et si tu as un problème tu poses une question précise et on te répondra très volontiers

[Mapokko]

c'est on arrivant a l'impasse que je me confie au forum ,j'ai fait plusieurs tentatives en regardant au forum ,mais je n'arrive pas a trouvé la solution . mes excuses
Cordialement

[Jannus]

As-tu au moins regardé le lien que je t'ai donné ?
Avec les code que tu as sur cette page, tu devrais t'en sortir.
Essaye et dis nous ce qui ne va pas avec précision : code, message d'erreur, etc.

[Mapokko]

Pour afficher une date dans une cellule pas de problème (=date() ) , =aujourdhui() pour l'heure ( time)
mais dans dans un texbox ?

j'ai utilisé

Code :

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

TextBox1 = Range("A2")

mais ce n'est qu'on appuiant sur une touche qu'il me donne la date

[catsur]

Salut,

Le code VBA pour obtenir une date est :

Code :

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

1
2
Dim date As Variant
date = Format$(Date, "dd/mm/yyyy")

Ce que je te conseille de faire c'est de créer un label dans ton Userform et de dire que sa valeur est égale à la variable "date".

Voilà, ça te fait une piste pour commencer.

Bon courage!

Ceci pourrait également te servir :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
 
'Ici tu mets ton code
 
End Sub

ça sert à effectuer une action quand tu actives ton UserForm.

Le code est à mettre dans le Userform

A plus

[Mapokko]

voir fichier ci-joint

[drakkar_agfa]

Bonjour,

Sans ouvrir le fichier, quel est la question?
Plusieurs personnes n'ouvrent pas les fichiers joints, et même en l'ouvrant, que veux-tu que fasse avec? Une question?

[Mapokko]

Dans mon textbox1 je veux afficher la date du jour et
dans mon textbox2 je veux afficher l'heure reél ( qui fonctionne sans arrêt)
si non comment avoir une horloge qui fonctionne

[Mapokko]

Enfin j'ai résolu 50% du problème
pour l'heure c'est fait ,mais pour la date le seul inconveinant c'est qu'elle n'apparaissent dans mon textbox qu'après un clic sur n'importe quelle touche du clavier
Merci pour ceux qui m'ont poussé par leurs paroles à fouiller pour trouver la réponce (50%).
Cordialement

[drakkar_agfa]

Salut,

Le code VBA pour obtenir une date est :

Code :

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

1
2
Dim date As Variant
date = Format$(Date, "dd/mm/yyyy")

Ce que je te conseille de faire c'est de créer un label dans ton Userform et de dire que sa valeur est égale à la variable "date".

Voilà, ça te fait une piste pour commencer.

Bon courage!

Ceci pourrait également te servir :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
 
'Ici tu mets ton code
 
End Sub

ça sert à effectuer une action quand tu actives ton UserForm.

Le code est à mettre dans le Userform

A plus

Je crois que tu n'as pas utilisé cette technique...
...
Et, je ne crois pas que ta technique pour afficher l'heure est au point.

[Mapokko]

toujours il faut un clic . Peut il me manque quelque choses. Je cherche

[Mapokko]

Enfin