formule conditionnelle en vba (reglè)

Option Explicit
Option Compare Text


Sub ConditionalFormat()
Dim Plage As Range, Cell As Range

Set Plage = Sheets('Feuil1').Range('F7:F50')

For Each Cell In Plage
    If IsNumeric(Cell.Offset(0, 6)) Then
        Select Case Left(Cell.Offset(0, -4).Value, 1)
            Case 'W'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 2
            Case 'T'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 3
            Case 'V'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 4
            Case 'I'
                Cell.Interior.ColorIndex = Parcours(Cell.Offset(0, 6)) + 5
            Case Else
                Cell.Interior.ColorIndex = xlNone
        End Select
    End If
Next Cell

End Sub

Private Function Parcours(KM As Double) As Byte

Select Case KM
    Case Is > 250: Parcours = 1
    Case 200 To 249: Parcours = 10
    Case Is < 200: Parcours = 20
End Select

End Function

Cliquez pour agrandir...

Sub ListIndexColor()
Dim x As Byte

For x = 1 To 56
    With Cells(x, 1)
        .Value = 'Color Index ' & x
        .Interior.ColorIndex = x
    End With
Next


End Sub

Cliquez pour agrandir...