[N°185] Créer une barre de progression

Bonjour,
Je viens de lire dans l'ordinateur individuel numéro 185 de Juillet-août(page 157 dans les Trucs et astuces) qu'il était possible d'ajouter une barre de prograssion dans une présentation PowerPoint. Je suis vraiment intéressée par cette option,(j'ai la version 2003 Pro) mais je n'arrive pas à créer la macro d'après le listing donné.
J'ai une fenêtre qui affiche :

Erreur de compilation:
Attendu : Fin d'instruction
OK ou Aide

C'est la partie : ForX=1To.Slides.count qui je pense ne convient pas car elle s'affiche en rouge et après vient la fenêtre d'erreur.

Merci de m'aider.

Bonjour
oui, je me suis précipité pour écrire ce listing et .....idem que Dadine
Pourriez vous nous éclairer ? car cette astuce me rendrait un énorme service dans mon travail.
Dans l'attente d'une réponse avertie
Merci

Bonjour,
Je suis dans le même cas..
Personne n'ayant répondu, je viens d'adresser un mail à la rédaction du journal !
Wait & See !...
Daniel

Hello,
C'est vrai qu'avec les vacances, on a raté certaines questions. Je transmets vos doléances à notre Office-Master...
A+

Bonjour et merci de nous lire
Je vous donne ici la version - vérifiée - de la macro :
Sub AddProgressBar()
On Error Resume Next
With ActivePresentation
For X = 1 To .Slides.Count
.Slides(X).Shapes("PB").Delete
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
s.Fill.ForeColor.RGB = RGB(127, 0, 0)
s.Name = "PB"
Next X: End With
End Sub
Je vous invite à la copier/coller dans votre PowerPoint.

Notez que, dans votre message, vous aviez oublié l'espoace entre "for X=1 " et Slide.Count.
Le VBA est en effet assez exigeant en qui concerne la présence ou l'abseznce d'espace :-)
Par ailleurs, nous avons souvent des problèmes, à l'impression de l'Ordinateur Individuel, du au fait que certaines lignes de macros sont coupées alors qu'elles doivent être saisies d'eune seule traite. Nous réfléchissons à la façon de résoudre le problème.
Cordialement. Etienne Oehmichen

MERCI !