Discussion :

[Kimy_Ire]

Bonjour,

Je souhaiterais effectuer une tâche toutes les X dixièmes de secondes.
Je n'ai pas réussi à faire la synthèse de tous les posts sur le sujet sur le net...

En fait, j'arrive facilement à faire un Timer en centièmes de seconde ou à effectuer une tâche toutes les secondes avec Application.OnTime Now + TimeValue("00:00:01"), "ma_macro" mais je n'arrive pas à mixer les deux...

Quelqu'un aurait-il la solution ?

Je vous remercie par avance en restant à votre disposition pour tout complément !
Kimy

[Quentin77170]

Tu ne pourrais pas utiliser l'api Sleep du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub LanceurDeTaches()
 
Do Until [TA CONDITION D'ARRÊT]
    Call TaProcédure
    Sleep 100 'millisecondes
    Doevents
Loop
 
End Sub
 
Sub TaProcédure
Debug.Print "Procédure lancée à " & time
End Sub

C'est peut-être nul, je sais pas Je propose ce qui me passe par la tête...

[Docmarti]

Bonjour

Tu vas trouver ici quelques exemples de
m_TimerID = SetTimer(0, 0, Duration, AddressOf TimerEvent)

[Kimy_Ire]

Bonjour à tous,

@Quentin77170 : en fait, je ne peux pas utiliser Sleep car je dois faire un DoEvents pendant les moments "off" de ma macro.
Ton idée est bonne, mais je n'ai pas donné tous les détails !

@Docmarti : Merci pour le lien. Je crois que je vais tester plusieurs choses. J'ai trouvé un truc de mon côté et ce lien là que tu m'as donné semble réponse parfaitement à ma demande.

Je reviens vers vous !
Merci !

Cordialement,
Kimy

[Theze]

Bonjour,

Sinon, avec l'Api "GetTickCount " :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Declare Function GetTickCount Lib "Kernel32" () As Long
 
Sub Minuterie(Milliseconde As Long)
 
    Dim Arret As Long
 
    Arret = GetTickCount() + Milliseconde
 
    Do While GetTickCount() < Arret
        DoEvents
    Loop
 
End Sub
 
Sub Test()
    Dim Debut As Long
 
    Debut = GetTickCount
    Minuterie 100
 
    'la différence entre la valeur affichée et les 100 ms est due à l'appel de la fonction "GetTickCount"
    'pour le Debug Print, chez moi 10 ms --> 110
    Debug.Print GetTickCount - Debut
 
End Sub

Hervé.

[Invité]

Bonjour,
je te propose une solution, un contrôle timer!

vue qu'il n'est pas possible d'utiliser le contrôle timer, j'en est créé un avec le contrôle time!

oui mon contrôle est un passe plat et vue qu'il à été développé avec vb6 correctement licencier tu peux t'en servir dans Excel!

une seconde est égal à 1500 interval !