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.