Macro de passage d'une diapo à l'autre

[DArkswordman]

Bjr à tous,

Je souhaite mettre en place une macro avec boite de dialogue qui permet si on répond pour l'affirmative à la question de la boite de dialogue de passer vers une diapo de mon choix

Voici le code que j'utilise pour le moment (la boite de dialogue fonctionne ms pas la transition vers une autre diapo)

Public Sub test()
config = vbYesNo + vbQuestion + vbDefaultButton2
reponse = MsgBox("Cette partie du navigateur contient les informations relatives:                                                                                                                                       Souhaitez-vous y entrer?", config, " SMS ")
If reponse = vbNo Then End
SlideShowWindows(3).View.GotoSlide 7
End Sub

J'utilise ppt 03
Merci d'avance

[Philippe JOCHMANS]

Bonjour et bienvenue sur le forum Office de DVP.

J'ai refait un peu ta procédure pour qu'elle soit un peu plus normalisé avec des explications :

Public Sub test()
    ' déclaration de variables
    Dim lngReponse As Long
    ' question
    lngReponse = MsgBox("Cette partie du navigateur contient les informations relatives: Souhaitez-vous y entrer?", vbYesNo + vbQuestion + vbDefaultButton2, " SMS ")
    ' test de la réponse
    If lngReponse = vbNo Then
        Exit Sub
    Else
        SlideShowWindows(1).View.GotoSlide 7
    End If
End Sub
 

1 - Penses à déclarer tes variables
2 - Ton If avait un problème de syntaxe
3 - Utilises Exit Sub au lieu de End
4 - Dans SlideShowWindow j'ai remplacé par 1, car je n'avais qu'un diaporama d'ouvert, si tu mets 3, cela signifie que tu as 3 diaporamas d'ouvert, et que le passage à la 7 ème diapo se fait sur le troisième. Est-ce le cas ?

Starec

[DArkswordman]

Rebjr,

Effectivement c'est le cas j'ai 3 diaporamas qui sont ouverts

Merci pour les modifications de normalisation sur mon code

[Philippe JOCHMANS]

Donc résolu ?

Si oui, un petit clique sur le bouton en bas de la discussion.

Merci

Starec

[DArkswordman]

NON c'est pas résolu
la transition vers la diapo 7 ne se fais pas

Dsl

[Philippe JOCHMANS]

Re

Enlève le 3, en fait copie mon code intégralement pour voir.

Starec

[DArkswordman]

J'ai déjà essayer et cela ne fonctionne pas non plus

Je ne vois pas ce qui bloque

[Philippe JOCHMANS]

Re

Moi non plus, je ne vois pas ce qui bloque.

Est-ce que par hasard tu n'aurais pas dans les autres diaporamas d'autres procédures qui se nomment test ?

Starec

[DArkswordman]

Non je fait bien attention a cela un je n'ai crée qu' une seule macro nommée test

[Philippe JOCHMANS]

j'ai fait le test avec plusieurs fichiers d'ouverts, et aucun soucis.

Comment lances-tu la procédure ?

Starec

[DArkswordman]

J'ai moi aussi fais le test avec d'autres diaporamas et la ton code fonctionne parfaitement

par contre je ne vois pas trop ce que tu me demande sur le lancement de ma procédure?tu l'avais peut être compris mais je ne suis pas un crac en VB (dsl)

[Philippe JOCHMANS]

Envoyé par DArkswordman

J'ai moi aussi fais le test avec d'autres diaporamas et la ton code fonctionne parfaitement

Tu dis qu'il fonctionne, mais alors quel est le problème, je ne comprends pas

par contre je ne vois pas trop ce que tu me demande sur le lancement de ma procédure?

Lors de quel action tu lances la procédure, appui sur un bouton, clique sur une forme ? Et comment as-tu fait pour la mettre en place.

Starec

[DArkswordman]

Il fonctionne sur un diaporama vierge que j'ai crée pour le tester

Quant au lancement de ma procédure je pensais bien que c'était cela que tu voulais mais je n'étais pas sur.
J'utilise un bouton d'action pour activer la macro

[Philippe JOCHMANS]

Re

Envoyé par DArkswordman

Il fonctionne sur un diaporama vierge que j'ai crée pour le tester

Cela voudrait dire qu'il y a une interaction avec des éléments (code) qu'il y a dans ton diaporama actuel.

As-tu compilé ton projet pour trouver des erreurs de code dans le menu Débogage, puis Compiler ...(c'est le premier).

En effet si tu as une erreur dans ton code, il se peut que cela bloque tout.

Peux-tu mettre ton diaporama en pièce jointe (en le zippant sinon cela ne passe pas).


Starec

[DArkswordman]

Je l'ai compilé il n'y a pas d'erreur dans le code

En ce qui concerne la mise en pièce jointe du power point je vais essayer mais cela va me prendre du temps car il contient des infos confidencielle de mon entreprise il faut donc que je les supprime