Bonsoir,
Attention, "End" stop la macro.
pour que la macro se poursuive après avoir cliquer sur une des 5 propositions, il faut "rendre" la main à la macro de départ comme ceci pour le bouton 5:
Code:
Private Sub Btn5_Click()
MaReponse = 5
Fm_Qcm.Hide
End Sub
Le problème est que tu ne réutilise pas "MaReponse" dans la macro "QCM1":
Code:
Reponse = Cells(Ligne, 2): Cells(Ligne, "H") = "Réponse proposée"
Cells(7, 2) = NRC
Ligne = Ligne + 1
Que veut dire NRC et qcm?