Couleur dans une cellule

Bonjour,

Je voudrais que mon code me permettent d'afficher une couleur différente sur la police d'écriture en fonction d'une condition.

Pour cela j'ai donc utilisé le code suivant:

If IsNumeric(Range("D21").Value) Then

Range("D22") = "Non Respecté" And Range("D22").Font.Color = RGB(255, 0, 0)

If Range("D6") = "Fil 1" And Range("D30").Value < 0.05 Then Range("D22") = "Respecté" And Range("D22").Font.Color = RGB(0, 255, 0)

If Range("D6") = "Fil 2" And Range("D30").Value < 0.05 Then Range("D22") = "Respecté" And Range("D22").Font.Color = RGB(0, 255, 0)

End If

Mais lorsque je lance le programme cela m'affiche une erreur, et je ne vois pas d'où elle peut venir.

Avant d'ajouter la couleur le fichier fonctionné bien.

Merci d'avance pour l'aide.

Bonjour Pati,

Changement de certains And par : et réunion de deux lignes

If IsNumeric(Range("D21").Value) Then

Range("D22") = "Non Respecté" : Range("D22").Font.Color = RGB(255, 0, 0)

If (Range("D6") = "Fil 1" or Range("D6") = "Fil 2") And Range("D30").Value < 0.05 Then Range("D22") = "Respecté" : Range("D22").Font.Color = RGB(0, 255, 0)

End If

Cela devrait suffire...

Tu peux aussi passer par la Mise en Forme conditionnelle plutôt que par du code.

Bonne continuation.

Bonjour,

Essaie ainsi :

If IsNumeric(Range("D21").Value) Then
        With Range("D22")
            .Value = "Non Respecté"
            .Font.Color = RGB(255, 0, 0)
        End With
    Else
        If Range("D30").Value < 0.05 And Range("D6").Value = "Fil 1" Or Range("D6").Value = "Fil 2" Then
            With Range("D22")
                .Value = "Respecté"
                .Font.Color = RGB(0, 255, 0)
            End With
        End If
    End If

Oups ! pas vu ta réponse X Cellus....