Macro ou événement pour comparer deux colonnes, Excel VBA

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

 

Figure: Comparez les valeurs rapidement et de manière fiable

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x