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
Partager