Numérotation 1 à partir du n° X diapositive [Résolu/Fermé]

Signaler
-
 Momo -
Bonjour,

Dans PowerPoint 2003 ( ou 2013 ), j'ai un PPT de + de 400 diapos.
je veux faire une numérotation automatique à partir de la diapo 38 et en démarrant à 1.

Avec macro ou pas.
Le but est que si j'insère ou supprime des diapos ma numérotation suive.

Merci de vos retour.

1 réponse

Messages postés
16207
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
13 mai 2020
9 399
Bonjour,

Déjà, en utilisant la configuration de PowerPoint, ce n'est pas possible de commencer la numérotation à 1 à partir de la diapo 38. On peut faire l'inverse mais pas ça !

Donc, la macro est obligatoire. Il faut savoir néanmoins qu'il ne s'agira pas d'une pagination automatique, mais d'un pied de page ajouté. La macro suivante ajoute la pagination à partir de la page 38 dans la zone du pied de page :

Sub num()
'macro écrite par m@rina
Dim total, numéro
Dim diapo As Slides
Set diapo = ActivePresentation.Slides
total = diapo.Count
For d = 38 To total
diapo(d).HeadersFooters.Footer.Visible = msoCTrue
numéro = diapo(d).SlideNumber
diapo(d).HeadersFooters.Footer.Text = numéro - 37
Next d
End Sub


Par contre, ce ne sera pas automatique : en cas d'ajout ou suppression de diapos, tu devras relancer la macro.

Pour pallier ce problème, on peut créer une macro événementielle qui s'exécutera à l'insertion d'une nouvelle page. Malheureusement il n'existe pas d'événement pour la suppression de page.
Et comme les événements sont rares dans PowerPoint, il va quand même falloir passer la création d'un module de classe.
On pourrait aussi prévoir que la macro s'exécute à la sauvegarde, on peut alors utiliser l'événement PresentationSave.

m@rina
Bonjour , merci pour cette macro.
J'ai un soucis, car une fois mise dans mon ppt, je n'ai aucune numérotation.
Je suppose que c'est un problème d'affichage du pied de page sur mes diapos.
Comment faire apparaître cette numérotation et lui appliquer la macro?
Merci de votre retour.
Momo.
Messages postés
16207
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
13 mai 2020
9 399
Bonjour,

Il faut que tu regardes, dans le masque, que la zone Pied de page soit affichée.
m@rina
>
Messages postés
16207
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
13 mai 2020

Bonsoir,
Merci beaucoup de votre aide.
résolu. je clique pour clore cette question.
Bonne soirée et bonne continuation.
Momo