Re : Questionnaire à choix multiples
Bonjour à tous,
Donc, mon QCM fonctionne très bien et je remercie tous ceux qui m'ont donné un coup de main ou qui ont laisser des exemples dans les différents Forums...
MAis j'ai encore besoin de vos lumières!!
Voila, pour fignoler mon QCM, je voudrais pouvoir mettre un message "Réponse incomplète" si le candidat ne coche pas toutes les bonnes réponse. Actuellement, lorsque la réponse est incomplète ou fausse, je donne le message "Réponse fausse"...
Je m'explique avec un exemple :
1 question, 4 choix de réponse. La bonne réponse est le choix a et b
Si le candidat répond a et c, alors message "Réponse incomplète"...
Voici le code que j'utilise pour tester la réponse des candidats :
Private Sub Verifier_Click()
what.Visible = False
If CheckBox1.Value = True Then
r1 = "a"
End If
If CheckBox2.Value = True Then
r2 = "b"
End If
If CheckBox3.Value = True Then
r3 = "c"
End If
If CheckBox4.Value = True Then
r4 = "d"
End If
réponse = r1 & r2 & r3 & r4
If N = 1 Then
If Feuil11.Cells(N + 1, 8) = réponse Then 'cellule qui contient la bonne réponse
Label2.Caption = "Bonne réponse !!!"
yeah.Visible = True
Feuil13.Cells(lignerésultat, mr + 6).Value = Feuil11.Cells(N + 1, 3)
Feuil13.Cells(lignerésultat, mr + 7).Value = réponse
Feuil14.Cells(lr, 3).Value = Feuil11.Cells(N + 1, 3)
Feuil14.Cells(lr + 2, 3).Value = "Bonne réponse"
Feuil14.Cells(lr + 1, 3).Value = réponse
mr = mr + 2
lr = lr + 4
N = N + 1
P = P + 1
Else
Label2.Caption = "Mauvaise réponse !"
bad.Visible = True
Label13.Caption = "Les bonnes réponses sont : " & Feuil11.Cells(N + 1, 8).Value
Feuil13.Cells(lignerésultat, mr + 6).Value = Feuil11.Cells(N + 1, 3)
Feuil13.Cells(lignerésultat, mr + 7).Value = réponse
Feuil14.Cells(lr, 3).Value = Feuil11.Cells(N + 1, 3)
Feuil14.Cells(lr + 2, 3).Value = "Mauvaise réponse"
Feuil14.Cells(lr + 1, 3).Value = réponse
Un petit coup de main SVP !!