La mise en surbrillance de lignes alternatives peut augmenter considérablement la lisibilité de vos données. Cela peut être utile lorsque vous devez imprimer et parcourir les données.
Voici un code qui mettra instantanément en surbrillance les rangées alternatives dans la sélection.
‘Ce code mettrait en surbrillance des lignes alternatives dans la sélection

Sub HighlightAlternateRows()
Dim Myrange As Range Dim Myrow As Range Set Myrange = Selection For Each Myrow In Myrange.Rows If Myrow.Row Mod 2 = 1 Then
Myrow.Interior.Color = vbCyan End If Next Myrow End Sub

Notez que j’ai spécifié la couleur comme vbCyan dans le code. Vous pouvez également spécifier d’autres couleurs (telles que vbRed, vbGreen, vbBlue).