Dans cet article, nous allons créer une macro pour appeler une autre macro ou exécuter une commande après des intervalles de temps définis.

Pour exécuter la macro, cliquez sur le bouton «Start Timer».

ArrowStartTimer

Lors de l’exécution de la macro, la macro «TimerMsg» affichera une boîte de message.

ArrowStartingMessage

Lorsqu’un utilisateur clique sur le bouton «OK», trois secondes plus tard, la macro «MsgProcedure» sera appelée. La macro «MsgProcedure» affichera une boîte de message.

Explication logique

Dans cet exemple, nous avons créé deux macros «TimerMsg» et «MsgProcedure». La macro «TimerMsg» ** affiche un message d’information et appelle «MsgProcedure» après une attente de trois secondes, comme défini dans le code.

ArrowAfterRunningMacro

Explication du code

Méthode Application.OnTime

La méthode Application.OnTime est utilisée pour planifier une procédure à exécuter à des intervalles de temps définis.

Syntaxe

Application .OnTime Time, Procedure_name Time spécifie l’intervalle de temps auquel la procédure doit être exécutée.

Nom_procédure définit le nom de la procédure.

Nous avons utilisé la méthode Application.onTime pour planifier la macro «MsgProcedure».

Veuillez suivre ci-dessous pour le code

Option Explicit

Sub TimerMsg()

'Declaring Date variable

Dim AlertTime As Date

'Displaying message box at the start of the timer

MsgBox "The alarm will go off in 3 seconds!"

'Setting timer time for 3 seconds after the activation time

AlertTime = Now + TimeValue("00:00:03")

'Activating the timer and running the MsgProcedure at the end of the timer

Application.OnTime AlertTime, "MsgProcedure"

End Sub

Sub MsgProcedure()

'Sample procedure created for timer example

MsgBox "Three Seconds is up!"

End Sub

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous aimerions avoir de vos nouvelles, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]