Réaliser un questionnaire avec Power point avec calcul des résultats

Bonjour,

On peut faire plus simple.
Voici un exemple que j'ai mis ici :
http://www.cjoint.com/c/EIAmtDPVR6l

m@rina

Bonjour,

Vous pouvez utiliser mon modèle, je l'ai fait pour vous ! :)

Il y a dans cet exemple trois macros.
Les macros result_A et result_B se déclenchent lorsqu'on clique sur la réponse A ou la réponse B.
Chacune de ces macros comptabilise le clic, et de plus fait passer à la diapositive suivante.
Donc, si la diapositive explicative est la diapo suivante, il n'y a rien à modiifer, si ce n'est à insérer les diapos aux bons endroits.
Si la diapo explicative n'est pas la suivante, il faut remplacer

SlideShowWindows(1).View.Next

par

SlideShowWindows(1).View.GotoSlide x

en remplaçant x par le numéro de la diapositive.

La troisième macro (OnSlideShowPageChange) gère les événements au passage à telle ou telle diapo.
Dans l'exemple, lorsque la diapo est la 1, c'est-à-dire au démarrage, on remet les compteurs à 0. Donc, ça, on n'y touche pas.
Ensuite lorsqu'on arrive à la diapo 5, on a un message avec le résultat. Donc, à vous de modifier le chiffre 5 et de mettre le numéro de la diapo où vous souhaitez voir affichés ces numéros.

Une dernière chose : les macros événementielles par défaut s'appliquent à tous les diaporamas qui vont s'afficher tant que cette présentation est ouverte. C'est gênant si vous souhaitez afficher d'autres diaporamas en conservant cette présentation ouverte. Si c'est le cas, il faut tester, dans la 3e macro de quelle présentation on parle et donc ajouter une condition sur le nom de la présentation, ce qui donnerait :

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If ActivePresentation.Name = "xxxxx.pptm" Then
    If SSW.View.CurrentShowPosition = 1 Then
        nb_A = 0
        nb_B = 0
    End If
    
    If SSW.View.CurrentShowPosition = 5 Then
        MsgBox nb_A & " réponses A " & nb_B & " réponses B"
    End If
End If
End Sub

remplacer xxxxx.pptm par le nom de la présentation.

Et enfin, on pourra éventuellement faire quelque chose de plus esthétique en affichant le résultat dans une zone de texte bien formatée. A vous de voir.

m@rina

ps : la 4e macro est à supprimer, je l'ai laissée par erreur.

Marina bonjour. je ne sais comment vous remercier de l'aide que vous m'apportez dans ce projet.
Si ce n'était pas trop demander j'aurais encore des questions que je me pose lors de l'essai.
- comment supprimer la question au début lors de lancement "activer les macros. Je pense que lorsque le projet sera abouti, il y moyen de faire en sorte que les macros soient activées automatiquement pour que l'utilisateur puisse commencer à répondre.

- peut on créer une diapo avant le commencement du questionnaire "l'objet est de présenter le questionnaire et d'avertir la personne réalisant le questionnaire que les résultats ne seront pas conservés ni exploités)

- le nombre de 5 questions me suffit, encore merci de m'avoir mâché le travail.

- en faisant les essais, j'ai constaté que les résultats ne se mettaient pas à 0 lors d'une nouvelle exploitation du questionnaire; Ai-je fait une mauvaise manipulation ?

Merci encore par avance de votre compétence en matière de macros, moi je suis lâché.

Bonjour,

- Pour le message d'activation des macros, c'est sur chaque poste. A voir avec votre informatique.
-Vous pouvez insérer une diapo au début (ou plus), ça ne pose pas de problème.
- Les résultats se remettent bien à 0. Si vous parlez de la zone de texte de la dernière diapo, il faut ajouter ceci :

pres.Shapes("RESULT").TextFrame.TextRange.Text = ""

à cet endroit là :

If SSW.View.CurrentShowPosition = 1 Then
    nb_A = 0
    nb_B = 0
pres.Shapes("RESULT").TextFrame.TextRange.Text = ""
End If

m@rina

Bonjour,

Je me permet de poster sur ce site pour demander un coup de main ,

Je souhaiterai effectuer une presentation PPT sous forme de questionnaire avec comptabilisation des resultats à la fin et affichage sur une jauge ,

Par exemple ,

8 questions avec 6 reponses/point à valider , puis affichage du résultat à la fin

8x6= Soit 48 point max représentant 100% de reussite sur la jauge

Quelqu'un peut m'aider SVP ?

Merci pour les réponses

Bonjour,

Le lien que vous donnez est un lien sur votre PC auquel, bien sûr, je n'ai pas accès ! :)
Pour me transférer le fichier, mettez le ici :
https://www.cjoint.com/
et donnez le lien.

m@rina