Comment mettre en surbrillance des lignes dans VBA : avec des exemples

Vous pouvez utiliser les méthodes suivantes dans VBA pour mettre en surbrillance les lignes :

Méthode 1 : mettre en surbrillance la ligne active

Sub HighlightActiveRow()
ActiveCell.EntireRow.Interior.Color = vbYellow
End Sub

Cette macro particulière mettra en évidence la ligne actuellement active.

Méthode 2 : mettre en surbrillance une ligne spécifique

Sub HighlightSpecificRow()
Rows("4:4").Interior.Color = vbYellow
End Sub

Cette macro particulière mettra en évidence la ligne 4 de la feuille actuelle.

Méthode 3 : mettre en surbrillance plusieurs lignes spécifiques

Sub HighlightSpecificRows()
Range("2:2,4:4,6:6,8:8").Interior.Color = vbYellow
End Sub

Cette macro particulière mettra en évidence les lignes 2, 4, 6 et 8 de la feuille actuelle.

Remarque : Pour mettre en surbrillance toutes les lignes entre 2 et 8, vous pouvez taper Range(« 2:8 ») à la place.

Les exemples suivants montrent comment utiliser chaque méthode dans la pratique.

Exemple 1 : mettre en surbrillance la ligne active

Supposons que la cellule B3 soit actuellement sélectionnée.

Nous pouvons créer la macro suivante pour mettre en évidence chaque cellule de la ligne actuellement active

Sub HighlightActiveRow()
ActiveCell.EntireRow.Interior.Color = vbYellow
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que chaque cellule de la troisième ligne est mise en surbrillance et que toutes les autres lignes restent simplement intactes.

Exemple 2 : mettre en surbrillance une ligne spécifique

Supposons que nous souhaitions mettre en évidence uniquement la quatrième ligne.

Nous pouvons créer la macro suivante pour ce faire :

Sub HighlightSpecificRow()
Rows("4:4").Interior.Color = vbYellow
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que chaque cellule de la quatrième ligne est mise en surbrillance et que toutes les autres lignes restent simplement intactes.

Exemple 3 : mettre en surbrillance plusieurs lignes spécifiques

Supposons que nous souhaitions mettre en évidence les lignes 2, 4, 6 et 8 de la feuille actuelle.

Nous pouvons créer la macro suivante pour ce faire :

Sub HighlightSpecificRows()
Range("2:2,4:4,6:6,8:8").Interior.Color = vbYellow
End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que les lignes 2, 4, 6 et 8 sont toutes mises en surbrillance et que toutes les autres lignes restent intactes.

Remarque : Dans chaque exemple, nous avons choisi d’utiliser le jaune (vbYellow) comme couleur de surbrillance, mais vous pouvez choisir une couleur différente telle que vbRed, vbGreen, vbBlue, etc.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment mettre en évidence les cellules
VBA : Comment appliquer une mise en forme conditionnelle aux cellules
VBA : comment appliquer une mise en forme conditionnelle aux valeurs en double