Microsoft 365 Décompte visuel avant fermeture fichier

[Chounoé]

Bonjour, j'ai pris de l'aide auprès de vos anciens post pour un timer, mais je voudrais qu'il sois visible sur le feuille de calcul. Pouvez-vous m'aider s'il vous plaît, merci à vous

 

[sylvanu]

Bonjour Chounoé,
Je suppose que la cellule concernée est celle en rouge.
En PJ un essai en modifiant EcrireStatus :

Sub EcrireStatus(N)
    If N = 1 Then
        Application.StatusBar = "Ce fichier va se fermer dans " & TempsRestant & " secondes. (  " & Format(TempsRestant / 86400, "hh:mm:ss") & "  )"
        [L2] = Format(TempsRestant / 86400, "hh:mm:ss")
    Else
        Application.StatusBar = "  "                              ' vide le statusbar
        [L2] = ""
    End If
End Sub

 

[Chounoé]

Merci beaucoup sylvanu ça marche nickel

 

[sylvanu]

Non ça marche pas, le temps est mauvais.
J'ai updaté la PJ qui donne le bon résultat.

 

[Valtrase]

Bonjour à tous,
Un autre solution que celle de @sylvanu que je salut en passant.
Cet exemple utilise des formes que l'on copie d'une feuille Modèle vers la feuille active.
il faudra bien sûr l'adapter et le mettre dans la procédure BeforeClose du classeur.