XL 2013 Macro pour changer la couleur de police sous condition

[lestoiles1]

Bonjour à ts,

J'aimerais que les lettres dans la cellule A1 se changent en blanc si la valeur en B1 est 0. ça redevient noir si la valeur est supérieur à 0.

J'aimerais faire ça avec A1 - A200 et B2-B200

Merci

Lestoiles1

 

[job75]

Bonjour lestoiles1.

Sélectionnez la colonne A.

Formatez-la avec la police automatique (noire).

Puis créez une MFC avec la formule =B1=0 et une police blanche.

A+

 

[Nico_J]

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

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

 

[lestoiles1]

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

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

tu vois, la colonne b est le resultat d'un calcul, si c'est superieur à 0. change automatiquement en noir, pourtant le tien ne change pas sauf si en ecrit directement 1.