Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MiB
Bonjour,
Voici l'aide de EXCEL !
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
Vous pouvez probablement adapter à vos besoin ?
Michel
-----Message d'origine----- Comment créer un évènement de type Timer dans un UserForm ?
Ex: afficher un message si l'utilisateur n'a pas répondu au bout de 30s.
Salutations, Olivier .
Bonjour,
Voici l'aide de EXCEL !
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
Vous pouvez probablement adapter à vos besoin ?
Michel
-----Message d'origine-----
Comment créer un évènement de type Timer dans un
UserForm ?
Ex: afficher un message si l'utilisateur n'a pas répondu
au bout de 30s.
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
Vous pouvez probablement adapter à vos besoin ?
Michel
-----Message d'origine----- Comment créer un évènement de type Timer dans un UserForm ?
Ex: afficher un message si l'utilisateur n'a pas répondu au bout de 30s.
