pause dans une macro de moins d'1 seconde

[mr_kiri]

Bonjour,

Je souhaiterais faire une pause lors de l'execution d'une macro de moins d'une seconde.
Quelle est la syntaxe avec l'instruction WAIT pour rentrer un temps genre 00:00:00.010 (un dixième de sec par ex)?

J'ai essayé plein de trucs mais il m'envoie ch.. à chaque fois, et rien dans l'aide non plus... 😕

Merci

 

[tototiti2008]

Re : pause dans une macro de moins d'1 seconde

Bonjour Mr Kiri,

quelque chosecomme :

Application.Wait Now + (TimeValue("00:00:01") / 10)

 

[jeanpierre]

Re : pause dans une macro de moins d'1 seconde

Bonjour mr kiri,

Si tu nous expliques l'intérêt de la chose, il est possible que tu aies plein de réponses, mais moins d'une seconde, voire quelques dixièmes... ? ce n'est pas le temps de taper trois touches.... A peine le temps de mettre la machine à café en route...

A te lire, donc

Jean-Pierre

 

[excalibur]

Re : pause dans une macro de moins d'1 seconde

bonjour mr_kiri tototiti2008 jeanpierre le forum un code a adapter

Dim pausetime, start
pausetime = 0.001'temps a definir
start = Timer
Do While Timer < start + pausetime
DoEvents
Loop
'ton code...

 

[mr_kiri]

Re : pause dans une macro de moins d'1 seconde

Merci Excalibur, ce code est nickel !

En fait, je suis en train de réaliser une macro qui simule une boucle de régulation, et je voudrais pouvoir ajuster le temps de calcul de chaque pas pour pouvoir afficher les courbes en temps réel, ou x2, ou x5 etc...

Par contre, le code de toto ne marche pas. Dommage, il était plus simple...

 

[Lii]

Re : pause dans une macro de moins d'1 seconde

Bonsoir,

A tester :

Sub tempo()
Dim I As Integer, J As Integer
For I = 1 To 5000 'on règle la durée ici
  For J = 1 To 1000: Next 'ou là
Next
End Sub