J' arrive pas a trouver un timer AU SECOURS !!!

SuperClic

Bonjour.

Je voudrait séparer l' exécution de plusieurs instructions par des intervalles de temps, sans utiliser une boucle.

Je n' arrive pas a trouver un équivalent en VBA de "WScript.sleep ..." ni le contrôle Timer (sur Excel).

Peut-on ce rajouter manuellement ce controle ou un equivalent, ou touver une alternative?

Time te donne l'heure du système
donc en utilisant
mytime2 = Time + #00:00:23#
while (time<mytime)
wend
tu attends 23 secondes.
Il existe certainement mieux mais c'est la première idée qui me soit venue ;-)

-------------------------------
Réponse au message :
-------------------------------

SuperClic

Bonjour.

Je voudrait séparer l' exécution de plusieurs instructions par des intervalles de temps, sans utiliser une boucle.

Je n' arrive pas a trouver un équivalent en VBA de "WScript.sleep ..." ni le contrôle Timer (sur Excel).

Peut-on ce rajouter manuellement ce controle ou un equivalent, ou touver une alternative?

Timer te donne le nombre de secondes écoulées
donc en utilisant
mytime = Timer + 40
while (timer<mytime)
wend
tu attends 40 secondes.
Deuxième idée plus simple mais que ce passe-t-il si ton prog se lance à 23h59min59sec ?



-------------------------------
Réponse au message :
-------------------------------

Time te donne l'heure du système
donc en utilisant
mytime2 = Time + #00:00:23#
while (time<mytime)
wend
tu attends 23 secondes.
Il existe certainement mieux mais c'est la première idée qui me soit venue ;-)

-------------------------------
Réponse au message :
-------------------------------

SuperClic

Bonjour.

Je voudrait séparer l' exécution de plusieurs instructions par des intervalles de temps, sans utiliser une boucle.

Je n' arrive pas a trouver un équivalent en VBA de "WScript.sleep ..." ni le contrôle Timer (sur Excel).

Peut-on ce rajouter manuellement ce controle ou un equivalent, ou touver une alternative?

Bonjour,


Je remercie à JefLC d' avoir essayé de trouver une solution à mon poblème, mais celui-ci reste malheureusement non résolu.

En effet, j' avais aussi précisé que je ne pouvait pas utiliser de boucles, étant donné qu' une boucle do...loop ou While...Wend ou autre monopolise les ressources du système, et je ne peux rien faire sur le tableur Excel pendant l' attente.



-------------------------------
Réponse au message :
-------------------------------

Timer te donne le nombre de secondes écoulées
donc en utilisant
mytime = Timer + 40
while (timer<mytime)
wend
tu attends 40 secondes.
Deuxième idée plus simple mais que ce passe-t-il si ton prog se lance à 23h59min59sec ?



-------------------------------
Réponse au message :
-------------------------------

Time te donne l'heure du système
donc en utilisant
mytime2 = Time + #00:00:23#
while (time<mytime)
wend
tu attends 23 secondes.
Il existe certainement mieux mais c'est la première idée qui me soit venue ;-)

mais oui il suffit d'utiliser DoEvents dans la boucle


-------------------------------
Réponse au message :
-------------------------------


Bonjour,


Je remercie à JefLC d' avoir essayé de trouver une solution à mon poblème, mais celui-ci reste malheureusement non résolu.

En effet, j' avais aussi précisé que je ne pouvait pas utiliser de boucles, étant donné qu' une boucle do...loop ou While...Wend ou autre monopolise les ressources du système, et je ne peux rien faire sur le tableur Excel pendant l' attente.



-------------------------------
Réponse au message :
-------------------------------

Timer te donne le nombre de secondes écoulées
donc en utilisant
mytime = Timer + 40
while (timer<mytime)
wend
tu attends 40 secondes.
Deuxième idée plus simple mais que ce passe-t-il si ton prog se lance à 23h59min59sec ?



-------------------------------
Réponse au message :
-------------------------------

Time te donne l'heure du système
donc en utilisant
mytime2 = Time + #00:00:23#
while (time<mytime)
wend
tu attends 23 secondes.
Il existe certainement mieux mais c'est la première idée qui me soit venue ;-)

Maintenant grâce à vous, mon problème est résolu, Merci à tous.

J' ai en plus découvert l' existence d'API pouvant servir à cela: SetTimer et KillTimer


-------------------------------
Réponse au message :
-------------------------------

mais oui il suffit d'utiliser DoEvents dans la boucle


-------------------------------
Réponse au message :
-------------------------------


Bonjour,


Je remercie à JefLC d' avoir essayé de trouver une solution à mon poblème, mais celui-ci reste malheureusement non résolu.

En effet, j' avais aussi précisé que je ne pouvait pas utiliser de boucles, étant donné qu' une boucle do...loop ou While...Wend ou autre monopolise les ressources du système, et je ne peux rien faire sur le tableur Excel pendant l' attente.



-------------------------------
Réponse au message :
-------------------------------

Timer te donne le nombre de secondes écoulées
donc en utilisant
mytime = Timer + 40
while (timer<mytime)
wend
tu attends 40 secondes.
Deuxième idée plus simple mais que ce passe-t-il si ton prog se lance à 23h59min59sec ?



-------------------------------
Réponse au message :
-------------------------------

Time te donne l'heure du système
donc en utilisant
mytime2 = Time + #00:00:23#
while (time<mytime)
wend
tu attends 23 secondes.
Il existe certainement mieux mais c'est la première idée qui me soit venue ;-)

Il existe aussi une fonction timer sur excel et certainement tout VBA...
Application.OnTime EarliestTime, Procedure, LatestTime, Schedule

Vois ensuite ce qui t'intéresse avec l'aide.

@ +
Yann



-------------------------------
Réponse au message :
-------------------------------

> Maintenant grâce à vous, mon problème est résolu, Merci à tous.
>
> J' ai en plus découvert l' existence d'API pouvant servir à cela: SetTimer et KillTimer
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> mais oui il suffit d'utiliser DoEvents dans la boucle
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
>
> Bonjour,
>
>
> Je remercie à JefLC d' avoir essayé de trouver une solution à mon poblème, mais celui-ci reste malheureusement non résolu.
>
> En effet, j' avais aussi précisé que je ne pouvait pas utiliser de boucles, étant donné qu' une boucle do...loop ou While...Wend ou autre monopolise les ressources du système, et je ne peux rien faire sur le tableur Excel pendant l' attente.
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Timer te donne le nombre de secondes écoulées
> donc en utilisant
> mytime = Timer + 40
> while (timer<mytime)
> wend
> tu attends 40 secondes.
> Deuxième idée plus simple mais que ce passe-t-il si ton prog se lance à 23h59min59sec ?
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Time te donne l'heure du système
> donc en utilisant
> mytime2 = Time + #00:00:23#
> while (time<mytime)
> wend
> tu attends 23 secondes.
> Il existe certainement mieux mais c'est la première idée qui me soit venue ;-)
>
>
>
>

et kel est le kode pour mettre un  timeur avec un msgbox ??

MERCI
+++SLT+++