Power Point Masquer des diapositives via selection check box

[greg63]

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

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]

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

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