VBA et remplissage d'un QCM

Bonjour

Je débute en VBA et j'ai un petit souci.

J'ai un QCM sur 20 lignes et 3 colonnes.
Je voudrais pouvoir mettre une couleur sur la réponse choisie (1 seule réponse par ligne).

Si je clique sur A1, la cellule passe en bleu (colorIndex=37 par exemple), si je passe sur B1, c'est B1 qui devient bleu et A1 redevient blanc, idem pour C1.
Je veux pouvoir remplir tout mon tableau avec une seule couleur par ligne.

Ensuite par un bouton, je veux compter chaque bonne réponse (si B1 est la bonne réponse de la ligne 1, j'incrémente un compteur x=x+1 sinon x=x+0 et je passe à la ligne suivante)
A la fin du comptage, j'affiche le résultat : "vous avez x réponses justes"

Si quelqu'un a déja résolu ce problème, merci de votre aide

Première remarque : beaucoup de participants n'ouvrent pas les pièces jointes.
https://www.developpez.net/forums/d8...s-discussions/

Citation:

---

Envoyé par tresorier

Si je clique sur A1,

---

Utiliser l'évènement Worksheet_SelectionChange en vérifiant que la cellule sélectionnée est bien dans la zone des réponses.
https://msdn.microsoft.com/fr-fr/lib.../ff194470.aspx

Citation:

---

la cellule passe en bleu (colorIndex=37 par exemple),

---

Visiblement, la réponse est dans la question.
https://msdn.microsoft.com/fr-fr/lib.../ff836210.aspx
https://msdn.microsoft.com/fr-fr/VBA...r-object-excel
Pour savoir à quelle cellule appliquer la couleur, utiliser le paramètre de Worksheet_SelectionChange.

Citation:

---

si je passe sur B1, c'est B1 qui devient bleu et A1 redevient blanc, idem pour C1.

---

Avant de mettre la cellule souhaitée en bleu, mettre les trois cellules (A, B, C) en xlColorIndexNone.
https://msdn.microsoft.com/fr-fr/VBA...property-excel

Citation:

---

Ensuite par un bouton, je veux compter chaque bonne réponse

---

Comment la macro peut-elle savoir quelles sont les bonnes réponses ?

Bonjour,

Bonjour et merci pour cette réponse.

Citation:

---

Envoyé par Menhir

Première remarque : beaucoup de participants n'ouvrent pas les pièces jointes.
https://www.developpez.net/forums/d8...s-discussions/

---

Effectivement, j'ai lu le lien et comme c'était ma première intervention, j'ai cru bien faire.
Quand je m'en suis rendu compte, je n'ai pas réussi à supprimer le fichier.
Edit : ouf, c'est fait.

Citation:

---

Envoyé par Menhir

Utiliser l'évènement Worksheet_SelectionChange en vérifiant que la cellule sélectionnée est bien dans la zone des réponses.
https://msdn.microsoft.com/fr-fr/lib.../ff194470.aspx

Visiblement, la réponse est dans la question.
https://msdn.microsoft.com/fr-fr/lib.../ff836210.aspx
https://msdn.microsoft.com/fr-fr/VBA...r-object-excel
Pour savoir à quelle cellule appliquer la couleur, utiliser le paramètre de Worksheet_SelectionChange.

Avant de mettre la cellule souhaitée en bleu, mettre les trois cellules (A, B, C) en xlColorIndexNone.
https://msdn.microsoft.com/fr-fr/VBA...property-excel

---

J'avoue que tous ces liens sont très formateurs, mais je n'arrive pas à changer la couleur en passant d'une cellule à l'autre sur une même ligne et surtout la fixer.
J'ai réussi à limiter l'action uniquement sur la plage des réponses (A2:C37).

J'ai mis ça dans la feuille et je continue à chercher, mais j'ai du mal avec toute la syntaxe !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Static lastCell As Range If Not lastCell Is Nothing Then lastCell.Interior.ColorIndex = xlNone End If If Not Intersect(Target, Range("A2:C37")) Is Nothing Then     'Range("A2").Interior.ColorIndex = 37 'Range("B2").Interior.ColorIndex = 2 'Range("C2").Interior.ColorIndex = 2   With Target.Interior .ColorIndex = 37 .Pattern = xlSolid End With ' Set lastCell = Target Else Exit Sub End If End Sub

---

Citation:

---

Envoyé par Menhir

Comment la macro peut-elle savoir quelles sont les bonnes réponses ?

---

Oui, la question est justifiée !!!
Comme j'ai choisi de faire, c'est difficile à gérer par une macro, mais dans le bouton, la macro va traiter ligne par ligne.
Si A2 est bleu je mets mon compteur à x=x+1 (A2 étant la réponse juste)
Puis
Si B3 est bleu,.... ainsi de suite.
Ca sera forcément du sur mesure, sinon je serai obligé de passer par une autre approche (un tableau annexe avec compairaison par exemple).
Pour l'instant, ce sera une macro difficilement reproductible sur un autre QCM sauf à reprendre chaque ligne de réponse.

C'est pas très beau, mais j'ai fait ça et ça fonctionne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub Macro1()   x = 0 y = 0   'test de la couleur sur la premiere ligne If Range("A2").Interior.ColorIndex = 37 Then x = x + 1 End If   If Range("B3").Interior.ColorIndex = 37 Then x = x + 1 End If   If Range("B4").Interior.ColorIndex = 37 Then x = x + 1 End If   If Range("C5").Interior.ColorIndex = 37 Then x = x + 1 y = y + 1 End If   MsgBox "Total des réponses justes " & x & Chr(10) & "Total des réponses critiques " & y   End Sub

---

En tout cas, merci de votre aide.

Edit : je viens de me rendre compte que je n'avais pas respecté la charte (balisage du code).
Désolé, je débute sur le forum. C'est réparé !

Citation:

---

Envoyé par dysorthographie

Bonjour,

---

Bonjour et merci pour votre réponse.

J'avoue que j'ai eu du mal à retrouver tous les éléments.
Comme je travaille actuellement sur un portable (ça me change de mes 2*27"), je n'avais pas vu le bouton :D

Ensuite, la solution n'est pas très adaptée à mon cas.
Mais je reconnais que la comparaison avec les réponses est clairement une excellente idée. Il faudra que je creuse pour les cacher aux stagiaires (dans une autre feuille par ex) !!

Vu mon niveau, pour l'instant je vais rester plus basic en cochant bêtement la réponse choisie (1 parmi 3 par ligne) et en changeant la couleur de fond pour la réponse choisie.
Le bouton lancera une macro qui regardera la bonne réponse de chaque case à chaque ligne (voir ma réponse plus haut).

En plus, le QCM ne se résume pas qu'à des questions, il y a des images à visualiser pour pouvoir répondre.

En tout cas, merci pour votre contribution qui me confirme le haut niveau de ce forum.
J'ai du chemin à faire ;)