Discussion :

[nanouvince]

Bonjour,
Je créé un quiz sur powerpoint, il comporte (pour l'instant) 2 diapositives identiques avec sur chacune, une question et 4 réponses possibles (A, B, C ou D), devant lesquelles se trouve un objet sur lequel nous devons cliquer pour sélectionner la réponse (le texte change de couleur quand on clique sur cet objet, devant la réponse). j'ai donc créé une petite macro "sélectionA", qui peut s'appliquer à toutes les diapos) qui me permet de faire ce que je souhaite, mais en mode diaporama, lorsque je clique sur l'objet de la réponse A de la première question, le texte de la réponse A de la première question (première diapo) se colorie bien, et le texte de la réponse A de la deuxième question (deuxième diapo) se colorie aussi ! Quel code vba indiquer pour que la diapositive concernée par la macro soit la diaposive active du diaporama (en mode diaporama) et pas les autres ?!?
D'avance, je vous remercie pour votre réponse, car là, je sèche.
Vincent.

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Comment veux-tu que l'on trouve l'erreur dans ton code si tu ne nous le donne pas Mme Soleil est parti en vacances.

En effet en fonction de ton code, l'implémentation d'un contrôle peut se faire différemment.

Philippe

[Invité]

Re

En attendant une réponse, il faut tester cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.SlideShowWindows(1).View.CurrentShowPosition

Philippe

[nanouvince]

Merci Philippe pour ta réponse. Je vais essayer ce code et je t'en reparle.
Vincent.

[nanouvince]

Bonjour,
Désolé, mais je n'arrive pas à placer ce code correctement.
Voici le code de la macro et l'exemple de quiz en fichier joint.

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
Sub SélectionA()
 
    With ActivePresentation.Slides(1).Shapes("AutoShape 8")
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.RGB = RGB(255, 153, 0)
        .Fill.Transparency = 0#
    End With
 
    With ActivePresentation.Slides(1).Shapes("Rectangle 5").TextFrame.TextRange.Font
        .Color.SchemeColor = ppBackground
 
    End With
 
End Sub

D'avance, merci beaucoup pour vos réponses.
Bonne journée,
Vincent.

[Invité]

Re

Je créé un quiz sur powerpoint, il comporte (pour l'instant) 2 diapositives identiques avec sur chacune, une question et 4 réponses possibles (A, B, C ou D)

Dans ce que tu nous montres il n'y a que deux réponses

La première routine revue

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
Sub SélectionA()
'
    Dim i As Integer
    i = Application.SlideShowWindows(1).View.CurrentShowPosition
 
    With ActivePresentation.Slides(i).Shapes("AutoShape 8")
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.RGB = RGB(255, 153, 0)
        .Fill.Transparency = 0#
    End With
 
    With ActivePresentation.Slides(i).Shapes("Rectangle 5").TextFrame.TextRange.Font
        .Color.SchemeColor = ppBackground
 
    End With
 
End Sub

A toi de finir l'adaptation avec le i où tu veux qui te récupères la valeur de la slide active.

Philippe

[nanouvince]

Bonsoir,
Merci Philippe pour ta réponse. Mais je suis confronté à un p'tit problème. Après avoir écrit exactement le code que tu m'as donné, cela ne fonctionne pas.
Voici le message qui s'affiche lorsque j'execute la macro :
"Erreur d'exécution '-2147188160 (80048240)'
SlideShowWindows (unknown member) : Integer out of range. 1 is not in the valid range of 1 to 0."
Auriez-vous une petite idée pour me dépanner ?
D'avance, je vous remercie.
Vincent.

[Invité]

Re

Cela fonctionne pourtant chez moi (PPT 2002)

As-tu un autre diaporama ouvert en même temps ?

Philippe

[nanouvince]

Bonjour,
Après quelques modifs (concernant les noms des objets liés aux macros), tout fonctionne parfaitement bien. Encore une fois, MERCI beaucoup Philippe pour tes réponses claires et rapides et tes compétences.
En ce qui me concerne, je tiens à m'excuser pour mes incohérences dans les propos de mes messages, la prochaine fois je m'efforcerai d'être plus précis, cohérent et surtout respectueux des règles d'utilisation du forum.
Encore une fois merci et bonne journée !
Vincent.

P.S. : A son retour de vacances, passe le bonjour à "Mme Soleil" !