Décocher les Checkbox d'un slide à partir d'un autre slide

Bonjour à tous,

Mon soucis est le suivant:

Sur le Slide 2 j'ai les CheckBox1, 2 et 3.

Sur le slide 4 j'ai un bouton de commande Label1.

Je voudrais qu'en cliquant sur le bouton Label 1 tous les CheckBox du slide 2 soit décochés.

j'ai saisi le code ci-dessous:

Private Sub Label1_Click()

ActivePresentation.Slides(2).CheckBox1.Value = False
ActivePresentation.Slides(2).CheckBox2.Value = False
ActivePresentation.Slides(2).CheckBox3.Value = False

End Sub

mais lorsque je l'exécute, j'ai une erreur dont le libellé est "membre de méthode où données introuvables".

Quelqu'un aurait-il une idée de solution svp ?

Merci beaucoup

Bonjour,

Essayez :

Private Sub Label1_Click()

     With Slide2
          .CheckBox1 = False
          .CheckBox2 = False
          .CheckBox3 = False
     End With

End Sub

Merci Eric Kergresse,

Je viens d'essayer ta proposition mais ça ne marche toujours Pas.

j'ai un autre message d'erreur.

Erreur 424 "Objet requis"

Mettez en ligne un fichier pour voir.

voilà une version simplifier du fichier.

en cliquant sur le bouton quitter le quiz du dernier slide, je voudrais que les cases à cocher du slide2 soient également décochées

Les slides apparaissent dans la fenêtre VBA en haut à gauche :

Private Sub Label2_Click()

     With Slide131
          .CheckBox1 = False
          .CheckBox2 = False
          .CheckBox3 = False
     End With

     With Application
          .ActivePresentation.Save
          .ActivePresentation.Close
    End With

End Sub

ça marche très bien

Merci beaucoup.