• Initiateur de la discussion Initiateur de la discussion mephis
  • 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 !

mephis

XLDnaute Occasionnel
Bonjour le forum.

J'essaie de faire un compte un rebours dans le cadre de mon travail.
Vous me direz surement qu'en cherchant un peu sur le net j'aurai trouvé, et c'est vrai j'en ai trouvé plein, mais ce n'est pas un simple compte a rebours que je recherche.

J'aimerai que le compte à rebours ne se mette en route que si il n'y a pas eu d'activité pendant plus d'une minute sur excel.
Il ne me manque donc plus que le code qui permet d'activer le compte à rebours au bout d'une minute d'inactivité
Merci à tous.
Cordialement
 

Pièces jointes

Dernière édition:
Re : compte à rebours

Quand je parle d'inactif c'est quand il est ouvert mais qu'aucune action ne s'y produit.


J'ai essayé avec ça mais j'ai un problème, il me dit "argument non facultatif" et me met .ontime en jaune


Private Sub workbook_open()


Application.OnTime Now + TimeValue("00:00:05"), "ExecutionTimer"

End Sub
 
Dernière édition:
Re : compte à rebours

Bonjour,

Application.OnTime (Now + TimeValue("00:00:05")), "ExecutionTimer"

dans ton exemple, tu déclenche un "Chrono" à l'ouverture de ton excel


Pour repérer l'activité d'excel, il n'y a pas d’évènement générique tu devra travailler avec :

le changement d'onglet
Private Sub Worksheet_Activate()
Travail=Timer
End Sub

le changement de cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Travail=Timer
End Sub


dans ""ExecutionTimer" tu peux détecter le temps d'inactivité si (Timer -Travail) > délai ==>
sinon réinitialiser (Travail=Timer) et relancer le timer
 

Pièces jointes

Dernière édition:
Re : compte à rebours

mephis,

l'exemple te donne la logique, c'est à toi de décider ce que tu veux faire par exemple si tu veux fermer ton classeur avec ou sans sauvegarde, remplacer le MSGBOX par


If ActiveWorkbook.Saved Then 'pas de modification du classeur
ActiveWorkbook.Close
Else
ActiveWorkbook.Save
ActiveWorkbook.Close
End If


et si tu veux fermer Excel ==> Application.Quit
 
Dernière édition:
- 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
2
Affichages
669
Réponses
24
Affichages
3 K
Réponses
18
Affichages
4 K
Retour