Discussion :

[ZeiboU]

Bonjour !!
Contexte : j'ai une appli excel qui réagit à la pression de touches du clavier, n'importe quand
Parallèlement, je veux exécuter une procédure toutes les demi-secondes

Problème :
1) j'ai essayé la méthode onTime, mais apparemment le temps de base est la seconde: si je mets un Now + 0.000005 , les exécutions de ma procédure se font à la suite instantanément, sans attendre les 500ms, donc je passe de trop lent (1s) à trop rapide (aucune interruption temporelle)

2) j'ai essayé la méthode Timer,
Do While Timer < start + timeEvent
DoEvents
Loop

mais les pressions de touches ne lancent plus les procédures (je pensais pourtant que le DoEvents le permettrait)

Avez-vous une solution ?

Merci par avance

[ouskel'n'or]

Tu peux utiliser GetTickCount& dans une boucle.
Te donne en ms le temps écoulé depuis l'ouverture du pc. Tu mesures en dynamique le tps qui s'écoule dans une boucle avant de relancer ta procédure avec OnTime(Now)
Pour plus de détails sur GetTickCount&, regarde là
Tu dis

[ZeiboU]

j'ai essayé en faisant ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim start
    start = GetTickCount&
    While True
        Do While GetTickCount& < start + timeEvent  'timeEvent = 500
            DoEvents
        Loop
        myProcedure
        start = GetTickCount&
    Wend

mais j'ai le même problème qu'avec ma solution timer, à savoir que ma feuille excel ne réagit plus aux pressions de touches pendant la boucle contenant DoEvents ...

[ouskel'n'or]

Non je voyais une boucle ainsi

Code :

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

1
2
3
4
Dim arrivée As Double
    arrivée = GetTickCount& + 500
    Do While GetTickCount& < arrivée
    loop

La différence ? Une variable de moins et arrivée As Double

[ZeiboU]

oui, mais ça ne résout pas mon problème, qui est que pendant la boucle, les méthodes "onKey" que j'ai mises ne marchent plus ...

[ouskel'n'or]

Tu peux mettre plus de code ? Où places-tu ton Onkey ? Peut-être serait-il intéressant qu'on ait le code de "myProcedure"