Discussion :

[Granlur]

Bonjour,

Je dois réaliser un QCM sous VBA avec Office 2013 mais je suis débutant en VBA.
Mon QCM peut avoir plusieurs réponses justes possibles.

Je ne sais pas quel code mettre (une forme conditionnelle ?) pour passer à un UserForm_réponse_juste si 2 réponses sont justes et à un UserForm_réponse_fausse dans les autres cas après avoir appuyé sur le bouton réponse.

Voici le début de mon fichier :

http://www.sendbox.fr/pro/files/3/4x...orDev.com.xlsm

Merci par avance pour votre aide.

[Invité]

Bonsoir,
Un QCM ce compose en général d'un libellé et souvent de huit cases à cocher!

Le logiciel se fiche du libellé et des cases , le candidat moins!
Si le logiciel connaît les réponses avant le candidat,personne ne l'accusera se tricherie!

Une case à cocher est à True (-1) quand elle est validée et false (0) quand elle ne l'est pas!


Tu peux additionner des valeurs booléen dans un numérique! num = True +1.

Tu peux utiliser la propriété tag des cases à cocher pour Sauvegarder. La réponse

case.tag= 1 '1 bonne réponse 0 mouvais si tu multiples la valeur de la checkbox par son tag tu trouve si la réponse valider est bonne.

Code :

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

1
2
3
for i = 1 to 8
Résultat = Résultat+( me.controls("checkbox" & i).value  * me.controls("check ox" & i).tag)
New

[Granlur]

Bonsoir rdurupt,

Merci d'avoir pris le temps de répondre à mon problème.
Le code que tu me donnes, je le mets où dans Visual Basic. Au niveau des événements, des modules ? Je suis perdu.

[Invité]

quand tu renseigne, c'est a dire quand tu affecte une question à ton QCM tue donnes aux tag de tes checkbox 1 ou 0 selon la réponse.

sur le bouton valider la réponse tu applique la boucle for I

Bonjour,
regade le fichier joint!