appliquer une pause dans une macro vba excel Résolu

Question

Bonjour, 

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0

Woody · Accepted Answer

j'avais la même question, et j'ai trouvé encore plus simple:

Sub Wait()
' Attendre 5 secondes
Application.Wait Time + TimeSerial(0, 0, 5)
' Continuer après la pause
End Sub

remplacer le "5" par le nombre de secondes souhaité

pijaku · Answer

Bonjour, 

Pour faire une pause, tu peux utiliser effectivement Sleep en déclarant l'API en début de module : 
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Puis en l'appelant dans ta procédure : 
Sleep 1000 'Sleep calcule en millisecondes. Donc Sleep 1000 attendra 1 seconde...

Tu peux également utiliser Wait. Wait calcule lui en secondes. Exemple de Microsoft d'attente de 10 secondes [Selon Microsoft : This example pauses a running macro for approximately 10 seconds.], le approximately m'amuse beaucoup... : 
newHour = Hour(Now()) 
newMinute = Minute(Now()) 
newSecond = Second(Now()) + 10 
waitTime = TimeSerial(newHour, newMinute, newSecond) 
Application.Wait waitTime

Il y a aussi le Timer... Voir cet exemple de Mister lermitte222... 

Timer et wait comptent en secondes, sleep en millisecondes. 
Avec timer tu peux décider d'effectuer une tâche répétitive toutes les "x" unités de temps, avec Wait ou Sleep, c'est ta macro qui attend avant de poursuivre son déroulement. [Sources : ouskel'n'or] 
Cordialement, 
Franck P

Emmanuelagen · Answer

Bonjour,
Merci pour ces infos elles m'ont été très utiles.
J'ai une question liée à ce sujet. J'ai inséré ce temps d'attente dans ma macro liée à un bouton, mais je souhaiterais que le temps ne soit pas limité et que la macro reprenne au prochain "clic" de souris...
Merci pour votre aide
Cordialement
Emmanuelagen

benaflak · Answer

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    MsgBox "Paused for " & TotalTime & " seconds"
Else
    End
End If

Appliquer une pause dans une macro vba excel

4 réponses

Discussions similaires

Newsletters