Power Point Masquer des diapositives via selection check box

greg63

XLDnaute Junior
Bonjour à tous

Je gratte, je gratte mais je n'arrive pas à trouver mon code. Et vu que je n'ai pas l'aide comme sur excel, j'ai du mal

J'aurais besoins de 2 codes

Je souhaiterais lorsque je sélectionne une check box de pouvoir sélectionner un groupe de diapositive :

J'ai tapé ce code mais j'ai des erreurs de syntaxes

Code:
Private Sub CheckBox1_click()

If CheckBox1 = True Then

For x = 2 To 37

ActivePresentation.Slides(x).SlideShowTransition.Hidden = msoTrue

Else CheckBox1 = False Then

ActivePresentation.Slides(x).SlideShowTransition.Show = msoFalse

End If

End Sub

End Sub


Pareil est il possible d'avoir la selection destinée à des groupes de diapos qui ne se suivent pas :
For y = 2 to 37 et 40 à 44 et 89 à 90


Merci pour votre aide
 

Pounet95

XLDnaute Occasionnel
Bonjour,
S'agit-il d'Excel ou de Power Point ?
Quant au code tout est mélangé et il n'y a pas de fin de boucle For , le Next x

Pour ce qui est les groupes qui ne se suivent pas , par exemple utiliser les instructions Select case

VB:
deb=2        'adapter aux besoins'
fin=99

For x= deb to Fin
      Select case x
      Case 2 to 37, 40 to 44, 89, 90
          'exécuter le code
     Case 1, 38 , 39
         'faire autre chose
     Case else
        'et encore autre chose
     End select
Next x
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas