Colorier les bonnes réponses après QCM

soenda

XLDnaute Accro

• 13 Décembre 2008

• #2

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
...

Cliquez pour agrandir...

Essaies avec:

Code:

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

A plus

 

Vote positif 0 Vote négatif

L

LeZéro

Guest

• 13 Décembre 2008

• #3

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

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

 

Dernière modification par un modérateur: 13 Décembre 2008

Vote positif 0 Vote négatif

L

LeZéro

Guest

• 13 Décembre 2008

• #4

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...

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 13 Décembre 2008

• #5

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

Re,

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

L

LeZéro

Guest

• 13 Décembre 2008

• #6

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

Cliquez pour agrandir...

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" ?

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 13 Décembre 2008

• #7

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

RE,

J'ai refait la Sub Série2,

regardes si cela te conviens.

A plus

 

Pièces jointes

• Série2.xlsm

  28.8 KB · Affichages: 57

Vote positif 0 Vote négatif

L

LeZéro

Guest

• 13 Décembre 2008

• #8

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).

 

Vote positif 0 Vote négatif

L

LeZéro

Guest

• 13 Décembre 2008

• #9

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 ?

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 13 Décembre 2008

• #10

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

 

Pièces jointes

• Compare(VBA).zip

  21.7 KB · Affichages: 43

Dernière édition: 13 Décembre 2008

Vote positif 0 Vote négatif

L

LeZéro

Guest

• 13 Décembre 2008

• #11

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 ! 😉

 

Dernière modification par un modérateur: 13 Décembre 2008

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 13 Décembre 2008

• #12

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

RE,

Il manque une virgule ici :

Code:

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 13 Décembre 2008

• #13

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"

Cliquez pour agrandir...

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

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

Bonne continuation

 

Vote positif 0 Vote négatif

L

LeZéro

Guest

• 15 Décembre 2008

• #14

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)

 

Pièces jointes

• Série3.xlsm

  19.7 KB · Affichages: 44

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 16 Décembre 2008

• #15

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

Bonsoir Tous,

Tu as quelques explications et remarques dans le fichier joint.

 

Pièces jointes

• Compare(VBA) 2.zip

  18.7 KB · Affichages: 40

Vote positif 0 Vote négatif