ralentir l'execution

[astralon]

Bonjour a tous

je sais que ça a l'air idiot, mais j'aimerais rajouter a un de mes programmes une boucle ou un ralentissement.

pourriez-vous me dire comment faire merci

 

[cbea]

Re : ralentir l'execution

Bonjour Astralon,

Je peux te proposer ceci :

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

Le code effectue une pause pendant 10 secondes.

@+
cbea

 

[astralon]

Re : ralentir l'execution

bonjour CBEA

il fonctionne bien ton code,

quand je pense que moi j'avais fais une boucle DO avec un compteur, mais ca prenais plein de ligne et c'était pas vraiment présit comme durée alors que toi, c'est des secondes

toujours dans ce principe est - ce que je peux faire une incrementation du nombre de seconde en faisant un truc de se genre

tempo = 0
do
tempo = tempo + 1
Application.Wait(Now + TimeValue("0:00:" & tempo))
Loop While tempo < 10

 

[cbea]

Re : ralentir l'execution

re Astralon,

C'est possible.

Si tu mets :

tempo=55
Application.Wait(Now + TimeValue("0:00:" & tempo))

ce sera pareil.

@+
cbea

 

[astralon]

Re : ralentir l'execution

Merci beaucoup