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 :
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