Colorier les bonnes réponses après QCM

[LeZéro]

Terminé

Terminé, merci à tous !

 

[soenda]

Re : Colorier les bonnes réponses après QCM

Bonjour LeZéro, le forum

edit : mon essai fait planter la macro

...
While j < 10

If ... Then Worksheets("Questionnaire2").Range("A").Select

With Selection.Interior
...

Essaies avec:

If ... Then Worksheets("Questionnaire2").Range[COLOR=Blue][B]("A:A")[/B][/COLOR].Select

A plus

 

[LeZéro]

Re : Colorier les bonnes réponses après QCM

Merci mais ça me colorie l'ensemble du questionnaire.

 

[LeZéro]

Re : Colorier les bonnes réponses après QCM

Sinon j'avais pensé à un For each mais je ne saurai pas très bien assembler tout ça...

 

[soenda]

Re : Colorier les bonnes réponses après QCM

Re,

Merci mais ça me colorie l'ensemble du questionnaire.

Ma réponse précédente faisait référence à une faute de syntaxe,
tandis que maintenant, on découvre une faute logique...

Je regarderai le code ce soir, à moins que quelqu'un d'autre t'apporte la réponse.

A plus.

 

[LeZéro]

Re : Colorier les bonnes réponses après QCM

Dim e, f, j As Integer
score = 0
e = 3
f = 1
i = 0
While j < 41
If Worksheets("Questionnaire2").Range("A" & e).Value = Worksheets("Reponses2").Range("B" & f).Value Then
Worksheets("Questionnaire2").Range("A" & e).Interior.ColorIndex = 3
End If
e = e + 4
f = f + 1
j = j + 1
Wend

Voilà un code plus simple, et il me semble plus plausible.
Le problème ici semble le compteur des e.
Peut être faudrait il qu'il soit dynamique ?
"e + le nombre de cases fausses" ?

 

[soenda]

Re : Colorier les bonnes réponses après QCM

RE,

J'ai refait la Sub Série2,

regardes si cela te conviens.

A plus

 

[LeZéro]

Re : Colorier les bonnes réponses après QCM

Ah ouais j'ai copié collé "score = 0" en trop

Sinon merci pour tes efforts, mais je voudrais que toutes les bonnes réponses s'affichent en sur fond rouge, or c'est le cas seulement pour les bonnes réponses "b" (Q2, 9 et 10).

 

[LeZéro]

Re : Colorier les bonnes réponses après QCM

Mais finalement je me demande vraiment s'il ne vaudrait pas mieux établir ces instruction dans l'espace (For each) plutôt que dans le temps (while).

Simple question de logique par rapport au QCM.

De plus le For each n'est il pas plus facile que le while ici ?

 

[Lii]

Re : Colorier les bonnes réponses après QCM

Bonsoir Tous,

tu parles tout seul ?
Une autre façon de faire parmi tant d'autres

 

[LeZéro]

Re : Colorier les bonnes réponses après QCM

Ah ok ! En fait j'attend les cases en rouges si elles sont vraies en COLONNE A !

 

[Lii]

Re : Colorier les bonnes réponses après QCM

RE,

Il manque une virgule ici :

 MsgBox "Végétalien, n'est-ce pas ?", [COLOR=Red][B],[/B][/COLOR] "Ah !"

 

[soenda]

Re : Colorier les bonnes réponses après QCM

Re,

@LeZéro

Sinon merci pour tes efforts, mais je voudrais que toutes les bonnes réponses s'affichent en sur fond rouge, or c'est le cas seulement pour les bonnes réponses "b"

Exact, c'est un bug... Mea culpa.

Mais la solution de Lii est très bien...

Bonne continuation

 

[LeZéro]

Re : Colorier les bonnes réponses après QCM

Salut à tous !

Lii, j'ai essayé de reproduire ta méthode pour ce questionnaire (ci joint), mais ça ne marche pas très bien.

En fait je voudrait appliquer ta méthode plus rapide que la mienne pour calculer le résultat de ce questionnaire

Ah, et enfin, j'aimerai savoir comment faire tes cellules à liste pour répondre aux questions. (le copier coller est limité ici, puisqu'il me faut 4 réponses possibles)

 

[Lii]

Re : Colorier les bonnes réponses après QCM

Bonsoir Tous,

Tu as quelques explications et remarques dans le fichier joint.