colorer des cases excel sous condition

Bonjour, je suis débutante de VBA et je doit colorer les cases d'une colonne en particulier si elles contiennent "non"
j'ai fais ceci mais ça me renvoie en permanence une erreur :

Code:

---

1 2 3 4 5 6 7 8 9

Sub selection() Worksheets("banque").Select Dim i As Integer For i = 1 To 200 If Columns("accord").Offset(i, 0) = "non" Then Columns("accord").Offset(i, 0).Interior.Color = RGB(255, 0, 0) End If Next End Sub

---

Est ce que vous pourriez m'aider s'il vous plait ?

J'vais pt'être dire une connerie, mais y a les MFC pour ça :)
C'est, il me semble plus adaptés.

Traduction pour les néophytes MFC : Mise en Forme Conditionnelle

Il y a un tutoriel sur le sujet ici :
La mise en forme conditionnelle dans Excel

Cordialement,
Patrick Kolodziejczyk.

non en fait c'est un exercice je doit le coder en VBA mais je suis vraiment bloqué à cette question ...

Dans ce cas :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub selection() Worksheets("banque").Activate Dim i As Integer Dim cel As Range For Each cel In Range("B1:B200") If cel.Value = "non" Then cel.Offset(0, -1).Interior.Color = RGB(255, 0, 0) End If Next End Sub

---

En admettant que la colonne A est la colonne accord et que la colonne B contient les non ou autres...

merci beaucoup!! ca marche :P