Afficher / MAsquer LABEL

Bonjour
Je me débrouille très bien en Excel VBA ; Mais ici je n'arrive pas ( car pas trouvé) à afficher ou masquer un LABEL inséré dans une diapo
selon une variable affectée dans un "CommandButton" ?
Je laisse un exemple
Si bonne réponse > la diapo d'après masque le Label du bas et donc laisse EXCe...... etc
Si mauvaise on Masque le Label du haut
J'ai vu un espèce de tuto Sur ce site mais ????


Remarque : Nous sommes sur un forum POWERPOINT .. et on ne peut pas joindre un PPTX, PPTM ..... ???? c'est de l'incohérence complète non ????
D'ailleurs sur notre forum Exceldownload on va ne plus admettre les fichiers XLS , XLSX, XLSM !!!!!!!!!!!

Si j'ai bien compris Pour masquer ta zone de texte utilise la commande suivante

Code:

---

ActivePresentation.Slides(1).Shapes(3).Visible = True

---

1) pour la première planche
3) ici correspond a la troisième figure sur ta planche, ici la zone de texte "Laurier"

Tu peux voir l'ordre des figures dans le panneau de sélection
Pièce jointe 568504


Tu peux aussi nommer tes zone de texte, pour après les rechercher en VBA plus facilement sans passer par les numéros d'index qui ne sont pas forcément très explicite.

Merci bien !!
mais il va falloir du temps pour que j'analyse tout çà ... on est pas dans du EXCEL
ou là je nage comme un poisson dans l'eau
Sinon ... ce code tu le mets OU ??? je ne vois pas la référence au LABEL > visible = true ou flase
ni de IF
et dans quelle SUb ?? car c'est un enchainement du traitement du BOUTON DE Reponse !!!!

donc normalement , je devrais avoir qq chose qui me dit en passant à la diapo suivante de 'masquer' le 1er LABEL ou le 2eme ??
c'est cela que je cherche


A suivre

Bonjour
Un peu de temps pour trouver l'intitulé des formes ..... et maintenant c'est bon !
pour plus simple je suis passé par les formes au lieu des objets

Code:

---

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

ActivePresentation.Slides(2).Shapes("Rectangle 4").Visible = False ActivePresentation.Slides(2).Shapes("Rectangle 7").Visible = False Result = InputBox("Ecrivez votre réponse" & Chr(13) & "Annuler vous fera passer à la réponse")   If Result = "" Then GoTo fin   If Result Like "*glace*" And (Result Like "*thym*" Or Result Like "*tain*") Then   rep = 1 If rep = 1 Then ActivePresentation.Slides(2).Shapes("Rectangle 4").Visible = True   SlideShowWindows(1).View.GotoSlide 2 End If Exit Sub Else MsgBox " Bon réfléchissez un peu !!!!!! "   GoTo deb End If fin: If rep = 0 Then ActivePresentation.Slides(2).Shapes("Rectangle 7").Visible = True SlideShowWindows(1).View.GotoSlide 2 End If

---

Voilà en gros le coeur de la Sub !!
Encore merci