Essaies avec:edit : mon essai fait planter la macro
...
While j < 10
If ... Then Worksheets("Questionnaire2").Range("A").Select
With Selection.Interior
...
If ... Then Worksheets("Questionnaire2").Range[COLOR=Blue][B]("A:A")[/B][/COLOR].Select
Ma réponse précédente faisait référence à une faute de syntaxe,Merci mais ça me colorie l'ensemble du questionnaire.
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
MsgBox "Végétalien, n'est-ce pas ?", [COLOR=Red][B],[/B][/COLOR] "Ah !"
Exact, c'est un bug... Mea culpa.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"