Discussion :

[ludosnip]

bonjour

je cherche à ajouter une barre de progression sur powerpoint permettant de faire défiler le temps. Exemple, une diapositive fait 45 secondes, une barre défilera le temps des 45 secondes sur l'écran, une sorte de compte à rebours mais avec une barre
Je ne trouve rien sur le net

merci d'avance pour vos réponses

[Invité]

Bonjour

Tu ne veux pas de chiffres comme ici : http://www.developpez.net/forums/d81...ompte-rebours/ ?

Sinon, on est d'accord, c'est dans une seule diapositive ? Peux-tu détailler l'utilisation, et indiquer ta version de PowerPoint.

Philippe

[ludosnip]

merci pour ta réponse mais c'est sur toutes les diapositives qu'il me faudrait un compte à rebours. C'est un sorte de QCM que je voudrais faire pour mes élève avec 40 questions (soit 40 diapositives) mais comme une épreuve du code (auto école) je ne sais pas si je me suis bien exprimé ?

merci d'avance

[Invité]

merci pour ta réponse mais c'est sur toutes les diapositives qu'il me faudrait un compte à rebours.

Donc c'est pour l'ensemble du QCM, tu leur laisses 45 secondes pour répondre à 40 questions ?

[ludosnip]

oui c'est pour chaque diapo, non 45 secondes par question donc par diapositive

[Invité]

Re

Voilà un début de piste, en reprenant le principe du lien que je t'ai donné, voici le nouveau code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Option Explicit
 
 
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Public Sub Rebours()
    ' déclaration
    Dim sld As Slide
    Dim shpFond As Shape
    Dim shpRebours As Shape
    Dim t As Date
    Dim i As Byte
 
    ' affectation
 
 
    Set sld = ActivePresentation.Slides(2)
 
    ' on crée la forme de fond
    Set shpFond = sld.Shapes.AddShape(msoShapeRectangle, 25, 25, 90, 20)
    With shpFond
        .Fill.ForeColor.RGB = RGB(200, 50, 50)
        .Fill.Visible = msoTrue
    End With
 
    ' on crée la forme qui fera la barre de progression, mais avec une longueur nulle
    Set shpRebours = sld.Shapes.AddShape(msoShapeRectangle, 25, 25, 0, 20)
    With shpRebours
        .Fill.ForeColor.RGB = RGB(50, 50, 200)
        .Fill.Visible = msoTrue
    End With
 
 
 
 
    ' passage au deuxième slide
    SlideShowWindows(1).View.GotoSlide 2
 
    ' compte à rebours
    For i = 1 To 45
        shpRebours.Width = i * 2
        DoEvents
        Sleep 1000
    Next i
 
 
End Sub

En pièce jointe un fichier exemple, clique sur la forme du premier slide.

Bien sûr ce n'est qu'un exemple, mais un début de piste que l'on pourra adapter à ton cas.

Philippe

[ludosnip]

Merci pour ton aide