Discussion :

[alily]

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 :

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

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 ?

[cerede2000]

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

[kolodz]

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.

[alily]

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

[cerede2000]

Dans ce cas :

Code :

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

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

[alily]

merci beaucoup!! ca marche