Temporisation en millisecondes

[aubelix]

Re Bonjour à tous les Amis du Forum. 🙂

Une question qui a été déjà posée mais sans exemple pour la réponse.
Peut-on faire des pauses en millisecondes au de :

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

Le temps mini applicable est de 1 seconde.
La personne qui a posé et répondu sans plus d'explications
a fait allusion à la fonction "Sleep".

Quelqu'un aurait-il une idée ?

Par avance, Merci pour votre aide.
Cordialement

 

[MJ13]

Re : Temporisation en millisecondes

Bonjour Aubelix


Regarde ici (Ctrl+f milliseconde)

Tutoriel Gdi+ : développer un jeu de tir II

Tiens nous au courant de tes recheches (cela m'intéressse 🙂).

 

[aubelix]

Re : Temporisation en millisecondes

Bonjour MJ13 🙂

Merci pour ta réponse.
J'ai consulté le site avec les exemples.
Trop de lignes pour si peu de temps à attendre 😉
Et la majorité du code, c'est du Chinois pour mon niveau.

Merci pour ton aide.
Cordialement.

 

[skoobi]

Re : Temporisation en millisecondes

Bonjour aubelix, Michel 🙂

je te propose ceci: écriture du temps de la cellule A1 à A100 toute les 0.1s.
A toi de t'en inspirer:

Sub test()
For i = 1 To 100
Pause 0.1
Range("A" & i).Value = Timer
Next
End Sub

Function Pause(durée)
début = Timer
Do While Timer < début + durée

Loop
End Function

 

[aubelix]

Re : Temporisation en millisecondes

Bonjour Skoobi.

Merci pour ta réponse et ton aide.
J'essaie de l'appliquer à mon cas... 😕

Cordialement.

 

[MJ13]

Re : Temporisation en millisecondes

Re, Bonjour Skoobi

Sinon, regarde ce fichier:

 

[aubelix]

Re : Temporisation en millisecondes

Bonjour à tous les Amis du Forum et MJ13 🙂

Je suis revenu sur ce post, et je découvre ta réponse.
Merci pour ta macro.

En fouinant, j'ai trouvé par hasard ce code qui fonctionne très bien.

[B]Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)[/B]
           [COLOR=darkgreen]'Tempo de x millisecondes[/COLOR]
            [COLOR=blue]Sleep 10[/COLOR]

Merci à tous pour votre aide. 😉
Cordialement.