Discussion :

[tresorier]

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

[Menhir]

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

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

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.

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

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

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

[tresorier]

Bonjour et merci pour cette réponse.

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.

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 :

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

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

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 :

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

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

[Invité]

Bonjour,

[tresorier]

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

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