Désactiver un OnTime

  • Initiateur de la discussion Initiateur de la discussion boulou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

boulou

XLDnaute Occasionnel
Bonjour à tous les surdoués.

Est-il possible qu'un bouton toupie puisse désactiver et activer toutes les instructions ci dessous liées à un compteur et comment ?

Merci pour vos réponses.

Dim temps

'Décompte du temps de jeu restant
Sub majHeure()
[J5] = [J5] - 1
If [J5] = 0 Then
Beep
Beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

'Définition du temps en secondes
Sub auto_open()
[J5] = 600
majHeure
End Sub

'Instruction de clôture
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
 
Re : Désactiver un OnTime

Bonjour boulou,
Au lieu de déclarer Dim temps mets Public temps
et sur le bouton toupie
Private Sub SpinButton1_Change()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
Bruno
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
3 K
Retour