Chrono qui s'interrompt lors d'un changement de feuille

Bonjour le forum,

après pas mal de tatonnements j'ai pu mettre au point le fichier que j'espérais :

https://forum.excel-pratique.com/excel/inserer-un-compte-a-rebours-dans-mon-fichier-t46825.html

Il me reste un bug à corriger et j'en appelle à vos lumières.

J'aimerais que le chrono continue de fonctionner malgré le changement de feuille.

Malheureusement, ça le met en pause jusqu'au retour sur la feuille.

Je pense qu'il y a juste un argument à rajouter mais je ne vois pas ...

Merci à vous.

JB

Quelqu'un a une idée ?

Merci par avance ?

Après avoir pas mal consulté de post sur ce thème, je me demande si ce que j'espère est possible ...

Pensez-vous que ca l'est ou j'abandonne ?

Merci

JB

Bonsoir le forum

n'ayant pas pu trouver de solution pour continuer de faire tourner le chrono présent sur ma feuille lorsqu'une autre est sélectionnée (feuille "récapitulatif", je me résouds à bloquer / masquer cette feuille.

J'ai réussi à la masquer pendant l'éxécution du chrono, mais j'ai alors des scintillements lorsque le reste des macro s'éxécute.

En effet, je vois que la feuille s'affiche puis se masque.

Quelqu'un aurait une solution à insérer à mon code pour que la sélection des cellules ne fasse pas "sauter l'écran".

Merci à tous

JB

Bonjour,

Voici une solution à ton premier problème :

J'aimerais que le chrono continue de fonctionner malgré le changement de feuille.

REMPLACE :

Option Explicit
Public running As Boolean
Const UneSec = 1 / 86400

Sub compte()

If running = True Then
Sheets("récapitulatif").Unprotect
Sheets("tableau live").Unprotect Password:="handball"
Range("M18").Value = Range("M18").Value + UneSec
Application.OnTime Now + TimeValue("00:00:01"), "compte"
End If

End Sub

PAR :

Option Explicit
Public running As Boolean, temps As Single
Const UneSec = 1 / 86400

Sub compte()
    If running Then
        Application.OnTime Now + TimeValue("00:00:01"), "compte"
        Sheets("récapitulatif").Unprotect
        Sheets("tableau live").Unprotect Password:="handball"
        temps = temps + UneSec
        If ActiveSheet.Name = "tableau live" Or ActiveSheet.Name = "récapitulatif" Then Range("M15") = 15 / 864 - temps
    End If
End Sub

Cordialement,

Bonjour

Un grand, grand merci à toi Sébastien :

ca fonctionne à merveille, pas de scintillement, j'ai juste remplacé un morceau de code pour pouvoir choisir la durée de l'exercice.

Encore merci.

JB