Bonjour à tous,
Je suis actuellement en développement d'une macro permettant de gérer l'affichage des slides
Le concept est simple : une série de bouton à activer pour afficher les catégories voulues. J'ai un bout de code qui fonctionne bien :
En gros quand on trouve "OF_AA" sur la diapo : si le bouton est enfoncé on affiche ces diapos, sinon on les cache.
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
22
23
24
25
26
27
28
29 Private Sub CODEV2_Click() Dim sSearchTerm As String Dim oSl As Slide Dim oSh As Shape Dim SearchTermFound As Boolean For Each oSl In ActivePresentation.Slides oSl.SlideShowTransition.Hidden = False Next sSearchTerm = "OF_AA" For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes If oSh.HasTextFrame Then If UCase(oSh.TextFrame.TextRange.Text) = UCase(sSearchTerm) Then SearchTermFound = True Exit For Else SearchTermFound = False End If End If Next If TG_OFV = 0 Then If SearchTermFound = True Then oSl.SlideShowTransition.Hidden = True End If End If Next End Sub
Ma problématique est la suivante : comment ajouter dans le même code les autres termes possibles? ("OF_AB", "OF_AC"...)
Je vous remercie par avance pour votre aide...
Partager