Discussion :

[Pago283]

Bonjour à tous,
j'essaie de faire un compteur sur powerpoint

voici un code tout simple

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
Sub countdown()
 
Dim count As Integer
 
 
count = 0
 
For count = 1 To 150
DoEvents
With ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange
.Text = count
 
End With
 
Next
 
 
End Sub

mon problème c'est que je n'arrive pas à ce que l'on voit 0 au début (par défaut), il est toujours affiché 150
j'aimerais que l'on voit par défaut 0 et que quand il a fini de compter l'on voit 150.

après ce que j'aimerais c'est pouvoir mettre avec la forme avec une animation de déplacement,
et quand la forme se déplace on voit le comptage en même temps.
avec ce code le comptage se fait en premier et je dois ensuite cliquer pour que la forme se déplace.

merci pour votre aide

[Invité]

Bonjour,

Ci-joint, un fichier chronomètre de KIKI29 modifié (sans le module de classe d'origine). Il sera sans doute à adapter car son chronomètre apparaît dans la diapo. Le fonctionnement n'est pas compatible avec le mode diapo. La procédure se lance avec le bouton rouge dans la barre d'accès rapide.

Quelqu'un a des nouvelles de KIKI29 ? J'espère que tout est OK pour lui.