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

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
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

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