PowerPoint - Exécuter macro en mode diaporama

Bonjour la communauté

J'ai un petit problème pour exécuter une macro en mode présentation..

La macro s'exécute bien en mode "travail" mais je n'arrive pas à l'exécuter en mode présentateur, ni à l'exécuter par l'intermédiaire d'un bouton…

Il s'agit d'un "timer" à lancer lors du click sur le bouton.

Je sollicite donc cette superbe communauté afin de m'aider sur ce sujet.

Avez vous des solutions pour cela?

Merci d'avance !

Bien cordialement

Théophile

Ci dessous une capture indiquant les éléments :

image

La macro affectée au bouton est :

Sub count_go()

Ci dessous le code VBA :

Sub countdown()
Dim temps As Date
temps = Now()
Dim compte As Integer
compte = 10 'mettre le nombre de secondes ou en minutes
temps = DateAdd("s", compte, temps) 'pour des minutes, mettre "n" à la place de "s"
Do Until temps < Now()
DoEvents
ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex).Shapes("affichage").TextFrame.TextRange = Format((temps - Now()), "hh:mm:ss")
Loop
End Sub

Sub countup()
Dim temps As Date
temps = Now()
Dim compte As Integer
compte = 10 'mettre le nombre de secondes ou en minutes
'temps = DateAdd("s", compte, temps) 'pour des minutes, mettre "n" à la place de "s"
Do Until Now() < temps
DoEvents
ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex).Shapes("affichage").TextFrame.TextRange = Format((temps - Now()), "hh:mm:ss")
Loop
End Sub

Sub count_go()
Call countdown
Call countup
End Sub

Ci-joint le fichier

16countdown.pptm (57.95 Ko)
Rechercher des sujets similaires à "powerpoint executer macro mode diaporama"