Philippe GORMAND

Bonjour. Problème de VBA sous EXCEL.

Dans EXCEL 97, existait la fonction PAUSE().

Comment la remplacer avec EXCEL 2000 ou OFFICE XP ?

C'est très urgent. Merci.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub CommandButton1_Click()
    Sleep 2000   ' Fait une pause de 2 secondes
    MsgBox "toto"
End Sub



Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Cette méthode est un peu plus compliquée que celle de Manu

Private Sub UserForm_Click()
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) = vbYes Then
    PauseTime = 5    ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    Finish = Timer    ' Définit l'heure de fin.
    TotalTime = Finish - Start    ' Calcule la durée totale.
    MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
    End
End If
End Sub

jpleroisse