Timer relatif et absolu

[Valentin_Loupe]

Bonjour à tous,

Je voudrais savoir si on peut réaliser une opération grâce à un timer mais qui ne prend pas comme départ l'heure de l'ordinateur ?

Car en fait, je voudrais qu'en cliquant sur un bouton, une seconde précise se passe avant la réalisation de la procédure.

Est ce possible ?

Merci d'avance,

Valentin

 

[James007]

Re : Timer relatif et absolu

Bonjour,

As-tu essayé avec

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

A +

 

[Valentin_Loupe]

Re : Timer relatif et absolu

Bonjour James007,

Merci pour ta réponse rapide !
Oui j'ai déjà essayé mais le problème c'est que l'heure de départ utilisée est celle de l'horloge de l'ordinateur et donc que si la seconde est déja démarrée depuis une demi-seconde, le temps entre le moment du clic sur le bouton et celui du lancement de la procédure n'est que d'une demi-seconde. L'ecart de temps entre le clic et le lancement de la procédure n'est donc pas d'une seconde complète.

J'espère être clair !

 

[Guest]

Re : Timer relatif et absolu

Bonjour Valentin:

Et ceci, cela te convient-il?

Sub MyTimer()
    Dim t
    t = Timer
    Do
    Loop While Timer < t + TimeValue("00:00:01")
End Sub

Deuxième proposition avec API Windows comptant le nombre de millisecondes passées depuis le démarrage de l'ordinateur.

Private Declare Function GetTickCount& Lib "kernel32" ()
Sub MyTimer2()
    Dim t1 As Long    t1 = GetTickCount + 1000
    Do
    Loop While GetTickCount < t1
End Sub

A+