Discussion :

[Arapeo]

Bonjour à tous, je suis novice en programmation. J'ai essayé de faire un petit QCM sous PP 2007 avec calcul du score final. Tout marche, mais ensuite j'ai voulu ajouter des slides permettant d'écrire des réponses. Or, en ajoutant des TextBox je n'arrive plus à comptabliser les points. Le calcul final ne tient pas compte des réponses données dans les TextBox. Voici le code associé à ce type de slide. Je joins également le zip du questionnaire. Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
Select Case TextBox1
     Case "Reponse"
       IntCorrect = IntCorrect + 1
     Case Else
       IntIncorrect = IntIncorrect + 1
   End Select
   ActivePresentation.SlideShowWindow.View.Next
End Sub