couleur sur 2 lignes avec condition

[crashoveride69]

bonjour,

j'ai créer une macro de code couleur automatiser suivant se qu'il y a de noté

seul problème j'arrive à surligner une ligne mais pas deux
(je suis novice en vba)

j'ai donc créer

If c Like " Non*" Then
            c.EntireRow.Interior.ColorIndex = 15

mais j'aimerais la ligne d'au dessus avec et je ne vois pas du tout comment faire

si quelqu'un peux m'aider

merci d'avance

 

[tototiti2008]

Re : couleur sur 2 lignes avec condition

Bonjour,

peut-être

Sub test()
Dim c As Range
    For Each c In Range("C1:C20")
        If c Like " Non*" Then
            c.Offset(-1, 0).Resize(2, 1).EntireRow.Interior.ColorIndex = 15
        End If
    Next
End Sub