Colorier une cellule suite a une condition

Bonjour ,

comment je peux faire pour colorier d'une maniére automatique les cellules qui ont été remplies par des xx

Voici mon code

Sub Decision()

    Dim cell As Range

    Dim i As Integer

    For i = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

        If CStr(ActiveSheet.Cells(i, 31).Value) = "Completed - Appointment made / Complété - Nomination faite" Or CStr(ActiveSheet.Cells(i, 31).Value) = "Completed – Inventory available / Complété - Inventaire disponible" Or _
            CStr(ActiveSheet.Cells(i, 31).Value) = "Completed - Pool Created/ Complété - Bassin crée" Then

            ActiveSheet.Cells(i, 42).Value = "XX"

        End If

    Next i

End Sub

Bonjour,

un petit fichier exemple vaut mieux que des explications si tu peux en fournir un qu'on puisse te venir en aide ça serait plus facile.

Cordialement.

Bonjour,

un fichier à tester avec une mise en forme conditionnelle.

Amicalement

Pierrot

Bonjour,

Il suffit d'ajouter le code suivant après ActiveSheet.Cells(i, 42).Value = "XX"

ActiveSheet.Cells(i, 42).Interior.Color = RGB(255,0,0)

Le code ci-dessus est le code RGB de la couleur rouge. Si tu veux une autre couleur, n'hésite pas à te référer à ceci