Tâche répétitive inférieure à la seconde

Version imprimable

28/08/2015, 11h26
Kimy_Ire

Tâche répétitive inférieure à la seconde

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... :oops:

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... :mur:

Quelqu'un aurait-il la solution ?

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

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

Code:

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 :aie: Je propose ce qui me passe par la tête...

28/08/2015, 12h39
Docmarti

Bonjour

Tu vas trouver ici quelques exemples de
m_TimerID = SetTimer(0, 0, Duration, AddressOf TimerEvent)
28/08/2015, 12h45
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 ! :aie:

@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 ! :ccool:

Cordialement,
Kimy

Bonjour,

Sinon, avec l'Api "GetTickCount " :

Code:

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é.

28/08/2015, 15h54
Invité

3 pièce(s) jointe(s)

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 !
28/08/2015, 17h12
Kimy_Ire

Re !

Bon... j'ai à peu près tout essayé sans succès... Mon résultat le plus proche est l'API "GetTickCount" de Theze mais... je ne peux effectuer d'action malgré le DoEvents.
Ceci vient très probablement du fait que je suis déjà dans un DoEvents au moment de demander l’exécution de la procédure toutes les X intervalles...

@Robert : peux-tu m'éclairer d'avantage quant à ta solution ? Je ne sais pas "installer" ce que tu me proposes... :oops:
Tu peux me faire un mini tuto ? :aie:

Merci pour toutes vos réponses !

Cordialement,
Kimy
28/08/2015, 17h36
Invité

Dans le poste,
Tu as trois zip
Un MyTimer.zip dans lequel ce trouve TimerRd.ocx, les la source du code en Vb6 ainsi que deux fichier bat.

Install...bat et uniinstall...bat ces deux fichiers permettes de registrer ou deregistrer le contrôle!

Mais si ça fonctionne sur certaines machines, sur mon sevt 64, pas question!

Les deux fichier Package contiennent le setup. Vue l taille du setup j'ai été obligé de le compacter en 2 fichier.

Si le fichier bat d'installation fonction cool, si non obligé de passer par le setup .

Je ne penses pas que tu voulais un contrôle dans un UserFom mais c'est un bon compromis le sUserFom peut être non modal visible ou pas, un astuce pour qu'il ne soit pas visible.

Le contrôle dispose d'un autre événement Action ou tu place l'appel de ta procédure avec le paramètre.

Dans le. Boite d'ajout des contrôle recherche TimerRd...

En espérant que ce palliatif ne te désappointe pas trop!

De toute les façons c'est un vrai contrôle timer et c'est pas perdu!
28/08/2015, 17h55
Kimy_Ire

Solution = GetTickCount

Re !

Merci à tous pour votre aide ! J'ai finalement réussi en réadaptant la méthode "GetTickCount".

Robert, merci pour ton investissement, mais la solution que tu proposes est "lourdes" pour mon objectif. Avec un peu de réflexion j'ai réadapté ma macro qui fonctionne très bien toutes les X millisecondes tout en détectant les touches du clavier.

A très vite et merci encore ! :ccool:

Cordialement,
Kimy

1 pièce(s) jointe(s)

OnTime en centième de seconde

Bonjour,

Une astuce pour obtenir OnTime en centième de seconde (plus ou moins).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub aa()
'##########################################
'### Voir la Feuil1 pour savoir comment ###
'###     est obtenu le coefficient      ###
Const Coeff# = 1.15740740740741E-07
'##########################################
 
Static passe&
'--- Condition pour stopper la récursivité ---
passe& = passe& + 1
If passe& > 100 Then  'on stoppe à 100
  passe& = 0
  Exit Sub
End If
 
'--- Récursivité ---
Application.OnTime Now + Coeff#, "aa"
'--- Inscription pour visualiser (à virer par la suite) ---
Range("a" & passe& + 1 & "") = passe&
End Sub