Voici le code VBA à copier-coller : Sub CAR() Dim time As Date time = Now() Dim count As Integer count = 20 time = DateAdd("s", count, time) Do Until time < Now() DoEvents ActivePresentation.Slides(1).Shapes("CAR").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss") If time < Now() Then ActivePresentation.Slides(1).Shapes("CAR").TextFrame.TextRange = "Terminé !" End If Loop
Bonjour, je suis en pleine conception d'un jeu Powerpoint. J'aimerais pouvoir gérer les scores en temps réel uniquement sur mon PC, mais que le public ne voie pas ce que je fais sur le grand écran Il faut que je puisse ajouter les scores en appuyant sur les boutons sur lesquels il y a des actions de macro programmé , et que ça interagisse avec ce que le public voit sur le grand écran. En gros, si vous voulez, je voudrais créer une télécommande sur mon PC ou ma tablette, que je puisse gérer à distance, tout en diffusant le jeu normalement, mais y’a que moi qui est les yeux sur le contrôle des scores est ce que c’est faisable si oui comment ? Merci par avance de votre retour Cordialement
Merci beaucoup pour ce code. Il est vraiment bien. J'aurais juste une question sur la durée du compte à rebours. L'horloge n'affiche pas plus de 12:59 minutes. Comme si on ne pouvais pas programmer plus de 999s dans le VBA. Mais je dois faire un compte à rebours de 30 minutes. Qu'en pensez-vous ?
![3 Ways to Create PowerPoint Presentations with ChatGPT [for Teachers]](http://i.ytimg.com/vi/JmVWz2PFVA0/mqdefault.jpg)
Voici le code VBA à copier-coller :
Sub CAR()
Dim time As Date
time = Now()
Dim count As Integer
count = 20
time = DateAdd("s", count, time)
Do Until time < Now()
DoEvents
ActivePresentation.Slides(1).Shapes("CAR").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss")
If time < Now() Then
ActivePresentation.Slides(1).Shapes("CAR").TextFrame.TextRange = "Terminé !"
End If
Loop
End Sub
Très bien expliqué! Merci je l'ai fait en live sur un deuxième écran en même temps que vos explications, TOP!
Top. merci pour ton commentaire Stéphanie.
Excellent et très malin! Je ne savais pas que c'était possible! Merci Olivier! à bientôt ;-)
Merci Jehan
Génial, j'adore !
Top comme d'habitude.
Merci Olivier.
Merci Valérie😊
Bonjour, je suis en pleine conception d'un jeu Powerpoint. J'aimerais pouvoir gérer les scores en temps réel uniquement sur mon PC, mais que le public ne voie pas ce que je fais sur le grand écran Il faut que je puisse ajouter les scores en appuyant sur les boutons sur lesquels il y a des actions de macro programmé , et que ça interagisse avec ce que le public voit sur le grand écran. En gros, si vous voulez, je voudrais créer une télécommande sur mon PC ou ma tablette, que je puisse gérer à distance, tout en diffusant le jeu normalement, mais y’a que moi qui est les yeux sur le contrôle des scores est ce que c’est faisable si oui comment ?
Merci par avance de votre retour
Cordialement
Excellentes explications. Merci
Bonjour et merci pour votre tuto, cependant je souhaiterai savoir comment faire pour avoir ce timer sur toutes les diapos, par avance merci
Bonjour ! Merci beaucoup pour ce tuto c'est génial. Je voudrais dupliquer mon compte à rebours sur plusieurs diapo, comment faire ?
Merci beaucoup pour ce code. Il est vraiment bien. J'aurais juste une question sur la durée du compte à rebours. L'horloge n'affiche pas plus de 12:59 minutes. Comme si on ne pouvais pas programmer plus de 999s dans le VBA. Mais je dois faire un compte à rebours de 30 minutes. Qu'en pensez-vous ?
1800 SECONDES
Merci Olivier. Un peu différent sous Mac, mais on s'en sort.
Top ! Merci pour ton commentaire.