Discussion :

[jakyprogramming]

Bonjour,

Je suis nouveau sur le forum et j'ai une question à vous poser pour une petite application que je programme sous VBA .

Je voudrais mettre une temporisation dans mon programme.Cette temporisation est contenue dans une boucle donc elle est répétée.La durée à atteindre ,variant à chaque répétition de la boucle, est contenue dans une variable : la durée à attendre évolue de cette manière : 1s > 0.9s>0.8s>0.7s ....

Je cherche à éviter l'utilisation d'un "sleep" car ça me faire planter mon application .

Merci d'avance de vos réponses

[Kimy_Ire]

J'ai trouvé ça pour toi. http://www.developpez.net/forums/d85...tion-wait-vba/
Peut-être trouveras-tu ton bonheur ! =)

[jakyprogramming]

bonsoir,

Merci d'avoir répondu de ci-tôt

j'ai testé :

Code :

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

1
2
Dim s, p As Variant
p = 0,1: s = timer: Do While timer < s + p:DoEvents: Loop

cela marche très bien mais mon application détecte l'appuie sur des touches en temps réel ;lorsque j'appuis sur une touche il ne se passe pas forcément quelque chose ,je suis obligé d'appuyer,d'insister plusieurs fois sur la touche avant que l'appuie soit détecté par mon application .

j'ai donc testé :

Code :

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

1
2
Dim s, p As Variant
p = 0,1: s = timer: Do While timer < s + p:  : Loop '(sans le DoEvents )

mais ici je rencontre le meme problème de plantage qu'avec l'utilisation d'un sleep .


si quelqu'un aurait une solution à ce problème ,ça sera cool


merci d'avance

[jakyprogramming]

Bonsoir,

j'ai finalement trouvé la réponse à mon problème en utilisant :
Application.Wait Now + x (x étant la variable contenant la durée a attendre donc )

ps : aucun problème de plantage aussi

[Kimy_Ire]

Tu arrives à mettre moins de 1 sec dans x ? =)

[jakyprogramming]

oui j'arrive a descendre 1s , 0.9s , 0.8 ... 0.5s et la ,il y a un problème ;la tempo se fait plus ,mon programme s’exécute comme s'il y en avait pas eu...

hum hum pensant avoir résolu mon problème ,en apparaît un autre

peut etre que la durée dans x devient trop courte pour être effectuée par l'application ?

si vous avez d’éventuelles solutions ,n'hésitez pas

merci d'avance

[Kimy_Ire]

Je crois que l'application "Application.Wait Now + x" ne peut prendre que des valeurs égales à la seconde et pas moins. D'où ma précédente question.

Je ne sais pas pourquoi ton propgramme plante avec "sleep"...