XL 2013 Macro pour changer la couleur de police sous condition

lestoiles1

XLDnaute Occasionnel
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
 

Nico_J

XLDnaute Junior
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
 

Pièces jointes

  • couleur_text.xlsm
    16.6 KB · Affichages: 19

lestoiles1

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

Discussions similaires