Bonjour,

je débute en VBA et je souhaite traduire le code suivant en mise en forme conditionnelle:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim Plage_TS As Range
Dim CurCell As Object
 
For Each CurCell In Plage_TS
            If CurCell.Value < CurCell.Offset(0, -1).Value Then
                CurCell.Interior.Color = 39423
                Else: CurCell.Interior.Color = 11194364
            End If
 Next
Pour l'instant, j'ai écris ça, mais je ne sais pas vraiment quoi mettre dans l formule, donc ça ne fonctionne pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Plage_TS.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:=Plage_TS.Offset(0, -1)
Plage_TS.FormatConditions(1).Interior.Color = 39423
Plage_TS.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:=Plage_TS.Offset(0, -1)
Plage_TS.FormatConditions(2).Interior.Color = 11194364
Merci pour votre aide.