Microsoft 365 Décompte visuel avant fermeture fichier

Chounoé · Aujourd'hui à 15:19

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 · Aujourd'hui à 15:38

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

Code:

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é · Aujourd'hui à 15:48

Merci beaucoup sylvanu ça marche nickel

sylvanu · Aujourd'hui à 15:50

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

Microsoft 365 Décompte visuel avant fermeture fichier

Chounoé

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Chounoé

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Décompte visuel avant fermeture fichier

Chounoé

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Chounoé

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency