Bonjour
J’ai un code concernant un time-out.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
Public start As String
Sub timer_off()
Dim start, PauseTime
PauseTime = 100   ' 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
Application .quit
End Sub
Celui-ci me va bien, mais j’aimerai faire apparaître un chronomètre du temps restant.
Mon problème est que je n'arrive pas à intégrer une quelconque horloge ou chrono à l'intérieur du code sans que cela ne gène l'exécution de ce code. Celui-ci n'est plus actif.
Merci de votre aide concernant ce problème