Stopper temporisation

[degap05]

Bonjour,
Je bute sur un problème de temporisation.
A l'initialisation d'un USF d'identification, je démarre un chrono pour permettre à l'utilisateur d'indiquer son MdP.
Au delà du délai fixé, s'il n'y a pas eu validation, l'application se ferme (macro "Quitte").
Actuellement même avec validation l'application se ferme. Comment interrompre l'action à la validation (bouton 1 du USF) ?

Private Sub CommandButton1_Click()
' code pour interrompre l'action déclenchée par le chrono

End Sub


Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0
.Top = 270
.Left = 415
End With
'action déclenchée par le chrono
Application.OnTime Now + TimeValue("00:00:30"), "Quitte"
End Sub

Merci.

 

[degap05]

Re : Stopper temporisation

Bonjour Jean-Marcel,
J'avais essayé, mais j'ai un message d'erreur.

Photo écran jointe.

Merci.

 

[degap05]

Re : Stopper temporisation

Bonsoir Jean-Marcel,

OK pour le fonctionnement de "Tempo".

Pour "StopTempo" associé à mon bouton de validation de MdP, message d'erreur sur photo jointe.

Merci.
A+

 

[JNP]

Re : Stopper temporisation

Bonsoir le fil 🙂,
Le problème, à mon avis, est du au fait que tu ne donnes pas la main aux autres macros pendant le timer. Un petit exemple issu de l'aide

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 = [B]Timer[/B]    ' Définit l'heure de début.
Do While [B]Timer[/B] < Start + PauseTime
DoEvents    ' Donne le contrôle à d'autres processus.
Loop
Finish = [B]Timer[/B]    ' Définit l'heure de fin.
TotalTime = Finish - Start    ' Calcule la durée totale.
MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
End
End If

qui te montre comment utiliser DoEvents.
Bonne soirée 😎

 

[degap05]

Re : Stopper temporisation

Bonjour,
Merci Jean-Marcel et JNP.

J'ai réussi à utiliser la solution de Jean-Marcel, qui fonctionne parfaitement.
J'essaierai également la solution de JNP, pour comprendre et comparer.

Merci à tous.