Affichage d'une barre de temps dans un powerpoint

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
Avatar du membre
Arpopa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 16 avril 2019
Version d'Excel : 2016

Message par Arpopa » 24 avril 2019, 11:59

Bonjour,

Je suis PMO et dans ce cadre je dois m'assurer du respect d'un temps de parole.
J'ai besoin d'avoir une barre de temps programmable (5,10 et 15 minutes) par slide.
L'idéal serait de pouvoir en définir le temps au cas pas cas pour chacun des slides.
Et cerise sur le MacDo que quand il reste 1 minute la barre change de couleur.

Voilà pour ma liste au père noël :mrgreen:

Eulalie
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 24 avril 2019, 14:27

Bonjour,

PMO ...

OK ... mais c'est quoi PMO ... ???

Je crois me souvenir d'avoir conservé un Timer dans mes archives ...

Je creuse ... et j'espère le retrouver ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
Arpopa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 16 avril 2019
Version d'Excel : 2016

Message par Arpopa » 24 avril 2019, 15:08

Bonjour James007,

PMO c'est Project Management Officer, pour faire simple une secrétaire de chefs de projet. Ca va surement faire bondir mais pour expliquer simplement c'est ce que j'ai trouvé de plus simple.

Super si tu as un "Timer" ca va bien m'aider à limiter les longs discours de nos très chers chef de projet.

Merci de ton aide
Amicalement Eulalie
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 24 avril 2019, 15:16

Miss PMO :fleurs:

Ci-dessous un vieux PowerPoint Timer à adapter ...
Sub PPTimer()
Dim TMinus As Integer
Dim xtime As Date

With ActivePresentation.Slides(2)
  With .Shapes(1)
    'Timer fixé à 30 Secondes
    TMinus = 30
      Do While (TMinus > -1)
        Sleep 1000
        xtime = Now
        .TextFrame.TextRange.Text = Format(TimeValue(Format(Now, "hh:mm:ss")) - TimeSerial(Hour(Now), Minute(Now), Second(Now) + TMinus), "hh:mm:ss")
        TMinus = TMinus - 1
        DoEvents
      Loop
  End With
End With
End Sub
En espèrant que cela t'aide
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
Arpopa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 16 avril 2019
Version d'Excel : 2016

Message par Arpopa » 24 avril 2019, 16:17

Coucou James,

Ce que j'ai fait :
Copie de tes lignes d'instructions dans une fenêtre à partir du menu Développeur
Nom macro PPTimer
Copier coller des ligne de ton code
Enregistrement du fichier
Fermeture et réouverture
Menu developpeur
Executer PPTimer
Message d'erreur (voir documents joints)

Merci de ton aide
Amicalement
Eulalie
Présentation2.pptm
(35.69 Kio) Téléchargé 6 fois
erreur timer.docx
(70.17 Kio) Téléchargé 4 fois
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 24 avril 2019, 16:22

Re,

Il va de soi ... comme tu le vois dans ton code ...

que dans ta Slide n°2 tu as besoin d'une Shape ... qui va ' accueillir ' ton Timer ... ;;)

Bon Courage pour la suite ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
Arpopa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 16 avril 2019
Version d'Excel : 2016

Message par Arpopa » 24 avril 2019, 17:19

Très cher monsieur James007 agent de sa très gracieuse Majesté la reine d'Angleterre,

Pour moi la phrase "tu as besoin d'une Shape qui va accueillir ton timer" est obscur que la notion de PMO avant mon explication 8[] Puis-je avoir une explication.

Merci James
Eulalie (Money Penny)
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 24 avril 2019, 20:08

Hello Money Penny :lol:

Tu veux faire fonctionner une macro dans un fichier PowerPoint totalement vide ... !!! 8[] 8[] 8[]

C'est M qui va hurler :cry: :cry: :cry:

Une Shape est une forme dans laquelle tu peux saisir un texte par exemple ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
Arpopa
Jeune membre
Jeune membre
Messages : 24
Inscrit le : 16 avril 2019
Version d'Excel : 2016

Message par Arpopa » 25 avril 2019, 08:54

Coucou James bond,

J'ai bien suivi les recommandations à la lettre mais ca ne fonctionne toujours pas.
J'ai intégré un slide 2
J'ai deux Shape
Un au format heure
j'ai toujours le même message d'erreur, je dois mal définir le format du shape ?
peux tu me donner un fichier exemple qui fonctionne ?
Je vais finir par me faire taper sur les doigts par M

Amicalement
Eulalie
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 413
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 25 avril 2019, 08:57

Coucou,

Dès que j'ai un moment ...

Je replonge dans mes archives :playa:

Faut surtout que je retrouve le bon disque dur ..

Dur ... Dur ... :lol:
1 membre du forum aime ce message.
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message