Discussion :

[oscar.cesar]

bonjour
je voudrais affiche en temps reel l'heure dans un textbox
je taper textbox.value=time. dans la procedure textbox_change


j'ai bien l'affichage de l'heure mais elle reste fixe ?

merci

[patbou]

bonjour,

pour que tu es l heure sys en permanence il faudrait une procedure qui tourne en boucle en permanence

Code :

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

1
2
3
4
5
6
7
8
 
private sub userform_initialize ()
dim hr_systeme
do while stop = false
hr_systeme = time
textbox1.value = hr_systeme
do events
loop

ce qui ralentira forcement le reste du programme

[oscar.cesar]

bonjour

En effet , effectivement , une BCLE permanente s'est pas cool....

Bon l'affichage de l'heure , c'est pour le fun dansmon programme , je vais la retirer.

merci

[Qwazerty]

SAlut
Moi je dirais

Le plus probable est l'utilisation de application.OnTime -> voir l'aide en ligne pour les infos (je l'ai jamais utilisé mais ça parait coller, tu fait appel a une procédure a une heure ou un temps écoulé précis, il suffit donc que dans ta sub appelé tu fasse appeler a cette même sub 1sec plus tard...
et sinon


A++
Qwaz

[ucfoutu]

Bonjour, patbou,

Relis le "code" que tu as donné ...

Et dis-nous les multiples raisons (j'en vois en ce qui me concerne beaucoup) pour lesquelles il ne peut fonctionner, même après correction (plantage mémoire forcément assuré au bout d'un certain temps ...) ...

Lance donc ton code (après l'avioir corrigé, hein...) et "écoute" tes accès disque et ton ventilateur... tu vas vite comprendre...

Edit : la chose n'est réalisable sans faire souffir (dans un 1er temps) et planter (inéxorablement) dans un second temps, qu'avec un VRAI timer (et comme VBA n'en n'a pas ===>>> utilisation de celui de l'Api de Windows)

[patbou]

bonjour ucfoutu

Relis le "code" que tu as donné ...

Et dis-nous les multiples raisons (j'en vois en ce qui me concerne beaucoup) pour lesquelles il ne peut fonctionner, même après correction (plantage mémoire forcément assuré au bout d'un certain temps ...) ..

le code que j ai donné etait un principe
la variable stop permettait de sortir de la boucle lors de l activation d un autre controle par exemple

[ucfoutu]

bonjour
je voudrais affiche en temps reel l'heure dans un textbox
je taper textbox.value=time. dans la procedure textbox_change

j'ai bien l'affichage de l'heure mais elle reste fixe ?

merci

Je vois...

mais oscar.cesar veut une heure s'actualisant en permanence ...
Si ce n'était que pour l'afficher à la demande, il n'aurait même pas besoin de l'évènement change (un click et ce qu'il a déjà écrit ( textbox.value=time) suffirait) ...

Edit : vaut mieux :
- éviter de donner le nom Stop à une variable
- écrire Doevents en un seul mot