XL 2013 Macro pour changer la couleur de police sous condition

Nicolas Jacquin à dit:

Bonjour, voici ce que je peux vous proposer
Code à placer non pas dans un module mais dans le code de la feuille correspondante

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("B2:B200")) Is Nothing Then
        Set PlageTest = Range("B2:B200")
        For Each Cell In PlageTest
            If Cell.Value > 0 Or Cell.Value = "" Then
            Cell.Offset(0, -1).Font.ColorIndex = 1
            Else
            Cell.Offset(0, -1).Font.ColorIndex = 2
            End If
        Next
    End If
End Sub

classeur test avec

Cliquez pour agrandir...