Discussion :

[yveslens]

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

[omrsmiloud]

bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

time = DateAdd("s", count+1, time)

cdt