Bonjour,

Voilà, je me lance dans le VBA... j'ai quelques notions en VBA Access & Excel, mais pas vraiment en Powerpoint...

J'ai un PowerPoint avec plusieurs diapos, chaque diapo (sauf la 1er, c'est le titre...) contient, plusieurs champs texte, une question, une réponse...

Lors de l'ouverture d'une diapo, les instructions apparaissent (animation), la question apparait (animation) et je dois ensuite cliquer sur la souris pour faire apparaître la réponse, jusque là, pas de problème

Maintenant, ils ont 1 minute pour répondre avant que je clic sur la souris pour faire apparaître la réponse et ensuite de nouveau cliquer sur la souris pour passer à la question suivante...

J'aimerais qu'un compte à rebours se lance dès l'apparition de la question et qu'arrivé à 0, un son se lance pour annoncer la fin. je devrais ensuite cliquer sur la souris pour faire apparaître la réponse et de nouveau pour passer à la diapo suivante...

Et ça pour toute les diapos...

Pouvez-vous m'aider ?

Ps : j'ai ce code que je comprends et que j'arrive à lancer, mais que je n'arrive pas à intégrer comme j'aimerais... 1er problème lorsque je clic sur la souris AVANT le temps, j'aimerais que le code s'arrête... etc...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub countDown1()
Dim time As Date
Dim count As Integer
 
time = Now()
count = 59
 
time = DateAdd("s", count, time)
 
Do Until time <= Now()
DoEvents
 
With ActivePresentation.Slides(2).Shapes("Rebours").TextFrame.TextRange
    .Text = Format((time - Now()), "hh:mm:ss")
End With
 
Loop
 
End Sub

Merci d'avance