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