Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA PowerPoint Discussion :

Chronometre dans Powerpoint


Sujet :

VBA PowerPoint

  1. #1
    Membre du Club
    Chronometre dans Powerpoint
    Bonjour
    J ai tenté de réaliser un chronomètre dans une diapo d'un powerpoint
    Cela fonctionne sauf :
    Qu'il ne s'arrête pas à 0 il s'arrêt à 1

    j'aimerais diffuser un son à la fin du décompte
    et qu'il s arrete à 0 Le MUST serait d' afficher "FIN" ou quelque chose comme ça ,

    Voici le source de ma marco

    J'avoue que je n'y connais pas grand chose

    Quelqu'un peut il m'aider

    Merci d'avance

    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
    Sub chrono()
     
    Dim time As Date
    Dim count As Integer
     
    time = Now()
    count = 45
     
    time = DateAdd("s", count, time)
     
    Do Until time <= Now()
    DoEvents
     
    With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange
        .Text = Format((time - Now()), "hh:mm:ss")
    End With
     
    Loop
     
    End Sub

  2. #2
    Membre du Club
    bonjour
    à tester

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    time = DateAdd("s", count+1, time)


    cdt