Discussion :

[SimDen]

Bonjour,

J'essaie d'améliorer ma productivité sur Powerpoint et l'un des gros points noirs est la mise en place d'une numérotation (et non d'une pagination).

Pour mes présentations, j'insère une succession de Vues 3D, en les numérotant manuellement Vue 1 / Vue 2 etc page par page. C'est déjà pénible à faire, mais dès que j'en insère une de plus par la suite entre deux pages, je dois tout reprendre etc...

Je souhaite donc que cela se mette en place automatiquement.. En essayant de fouiller sur internet, cela me raccroche toujours à la pagination. Hors cela ne commence pas dès la première page, et il y a des d'autres pages ne comportant pas "ses vues" entre.

Merci d'avance pour votre aide!

Simon

[E KERGRESSE]

Bonjour,

Il vous faudrait expliquer sur un fichier sans données confidentielles ce que vous souhaitez faire (ou ne plus faire)...

[SimDen]

Bonjour E KERGRESSE,

Merci pour votre retour. Vous trouverez ci-dessous une capture d'écran avec ma présentation type.



Pour essayer d'être le plus clair possible, sur les diapositives 2 & 4, j'insère des visuels en les appelant Vue (1, 2, 3 etc) et je souhaiterais que cela soit automatisé. Les autres diapositives ne sont pas concernées par ces vues (ex la 0, 1 ou 3). Je souhaites donc que sur ces pages 2 & 4 (et toutes celles concernées, que j'ai une ou 19 vues) soient numérotées automatiquement sans prendre en compte les autres.

Hors aujourd'hui, toutes les solutions que je trouve me numérote TOUTES les diapositives. Et je peux seulement les masquer sur certaines diapo', mais mes vues commencent à 4 par ex' puis passent à 6 etc..

Les seuls embryons de réponses que je trouve me parlent de Macros mais c'est un univers complément inconnu pour moi.

En espérant avoir le plus clair possible

D'avance merci

[E KERGRESSE]

Pourriez-vous mettre en ligne une trame de votre fichier ppt contenant quelques pages sans les données confidentielles ?

[SimDen]

Le forum n'accepte pas l'ajout de mon ppt en pj. Comment souhaitez vous que je m'y prenne?

[E KERGRESSE]

Bonjour,

Le fichier ppt contient le bouton MettreEnPlaceLesVues dans la barre d'accès rapide qui permet de lancer la macro.



Une boite de dialogue s'ouvre avec 3 listbox. La première contient les numéros de diapositive sauf la dernière qui contient les modèles de shape VueSimple et VueTechnique. Cette diapo ne doit pas être supprimée et doit toujours être la dernière.



Avec les boutons > et < on place les diapos dans l'une ou l'autre des 2 autres listbox et on valide. Les listbox sont à sélection multiple.



Pour mémoire contenu de la diapo 8. Si le nombre de diapos change, il faut que cette diapo reste toujours la dernière.



Pour modifier les paramètres de la macro : Alt-F11

[SimDen]

Bonjour Eric,

Quel merveilleux Lundi matin avec votre message Vous n'avez pas idée à quel point vous m'avez mis de bonne humeur (et mis fin à 2 semaines de recherches intenses sans résultats)

En reprenant votre Powerpoint, j'ai pu en effet tester avec succès cette solution dont je n'aurais pas été capable de trouver par moi-même via l'utilisation des Macros, c'est du top niveau!

(La prochaine fois que ma société me demande une formation en powerpoint, je donnerais directement vos coordonnées, les derniers formateurs n'ayant pas été capable d'apporter une réponse à mes collaborateurs!)

En revanche, j'essuie quelques plâtres avec l'utilisation sur mon réseau professionnel..

- Je ne suis pas en capacité de cliquer sur le bouton raccourci, avec le message d'erreur suivant: " La macro est introuvable ou a été désactivée en raison de vos paramètres de sécurité" Je l'active donc manuellement à chaque fois avec Alt + F8.

- A partir du moment où j'effectue cette action une seconde fois (mettons parce que j'ai rajouté des vues), je suis obligé de ré-ajouter toutes les diapo' concernées.. Ou alors est ce dû à mes paramètres de sécurité..?

- En essayant de tester sur un de mes fichiers, je n'ai jamais pu mettre en place la macro avec le message d'erreur suivant:

Erreur d'exécution '-2147188160 (80048240)':

Item SlideModele not found in the Slides collection. Perhaps you meant Slide2.


Vous souhaitant une aussi bonne journée que la mienne!

Cordialement,

[E KERGRESSE]

Bonjour,

Comme suite à mes explications, vous devez avoir créé un slide indépendant, masqué, situé à la fin de votre fichier et contenant les shapes VueSimple et VueTechnique. Si c'est le cas, lancez ce code pour changer le nom du slide :

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
21
Sub ModifierLeNomduSlideModele()
 
Dim I As Integer, J As Integer, NBShapes As Integer
 
    With ActivePresentation
         NBShapes = 0
         For I = .Slides.Count To 1 Step -1
             With .Slides(I)
                  For J = 1 To .Shapes.Count
                      If .Shapes(J).Name = "VueSimple" Then NBShapes = NBShapes + 1
                      If .Shapes(J).Name = "VueTechnique" Then NBShapes = NBShapes + 1
                  Next J
                  If NBShapes = 2 Then
                     .Name = "SlideModele"
                     Exit For
                  End If
            End With
         Next I
    End With
 
End Sub

Sinon,

- A partir du moment où j'effectue cette action une seconde fois (mettons parce que j'ai rajouté des vues), je suis obligé de ré-ajouter toutes les diapo' concernées.. Ou alors est ce dû à mes paramètres de sécurité..?

Le code actuel part du principe qu'aucune numérotation n'existe ou si elle existe, elle doit être totalement effacée. Ce que je comprends, c'est que vos vues ne changent que très peu d'un fichier à l'autre. Est-ce bien cela ? Si c'est le cas, il faudrait balayer les slides et mettre les numéros de slide dans les bons ListBox du userform et ne pas les effacer.

Sinon,

- Je ne suis pas en capacité de cliquer sur le bouton raccourci, avec le message d'erreur suivant: " La macro est introuvable ou a été désactivée en raison de vos paramètres de sécurité" Je l'active donc manuellement à chaque fois avec Alt + F8.

Il faudrait voir vos paramètres de sécurité avec des vidages d'écran.

Pour la mise en place du bouton dans la barre d'accès rapide, je vous envoie le mode opératoire en message privé, les entêtes étant au nom de mon entreprise.

[SimDen]

Bonjour,

Merci pour ces retours, c'est tout simplement brillant!

Vous souhaitant un bonne continuation