L’exemple suivant est également très utile dans la pratique. Les colonnes A et B doivent être surveillées. La valeur la plus petite de la ligne doit être marquée. La plus petite cellule reçoit la couleur d’arrière-plan rouge.
Private Sub Worksheet_Change _ (ByVal CibleCell As Excel.Range) If CibleCell.Column = 1 Then If CibleCell.Value < CibleCell.Offset(0, 1).Value _ Then CibleCell.Interior.ColorIndex = 3 CibleCell.Offset(0, 1).Interior.ColorIndex = 2 Else CibleCell.Interior.ColorIndex = 2 CibleCell.Offset(0, 1).Interior.ColorIndex = 3 End If End If If CibleCell.Column = 2 Then If CibleCell.Value < CibleCell.Offset(0, -1).Value _ Then CibleCell.Interior.ColorIndex = 3 CibleCell.Offset(0, -1).Interior.ColorIndex = 2 Else CibleCell.Interior.ColorIndex = 2 CibleCell.Offset(0, -1).Interior.ColorIndex = 3 End If End If End Sub
Utilisez la propriété Columns pour vérifier que la cellule se trouve dans la plage cible. La propriété doit indiquer la valeur 1 ou 2 (colonne A ou B). En fonction de la cellule saisie, les deux cellules doivent alors être comparées l’une à l’autre. Pour la propriété ColorIndex, la valeur 3 correspond à la couleur RED, la valeur 2 à la couleur WHITE. Comme alternative à la couleur BLANC, vous pouvez également utiliser la constante XlAutomatic. Cela a préservé les bords des cellules.