Microsoft 365 Verifier l'execution continue de la macro

[romubzh35]

Bonjour à toutes et à tous,

j'utilise cette macro pour savoir si les camions partent en temps et en heure, le cariste cliquant sur un bouton pour signaler le départ du camion

Option Explicit
Public tps
Sub majh()
Sheets("Trucks Departure").Range("B8") = Format(Now, "hh:mm:ss")
tps = Now + TimeValue("00:00:02")
Application.OnTime tps, "majh"
Call mailparcamion
End Sub

mais je voudrais ce que je peux faire pour soit afficher une msgbox soit un message dans une cellule de l'onglet lorsque la macro ne s'exécute plus.
merci

 

[Dranreb]

Bonsoir.
S'il peut arriver qu'elle ne s'exécute plus c'est que vous faites quelque part ailleurs Application.OnTime tps, "majh", Schedule:=False.
Alors c'est là, que vous pouvez mettre votre MsgBox.