Ligne et couleur de fond de colonne en utilisant VBA dans Microsoft Excel
Les macros ci-dessous peuvent être utilisées pour définir la couleur d’arrière-plan, par ex. toutes les autres lignes ou colonnes de n’importe quelle plage de feuille de calcul:
Sub ShadeAlternateRows(rngTarget As Range, intColor As Integer, lngStep As Long) ' adds a background color = intColor to every lngStep rows in rngTarget ' example: ShadeAlternateRows Range("A1:D50"), 27, 2 ' colors every 2 rows light yellow Dim r As Long If rngTarget Is Nothing Then Exit Sub With rngTarget .Interior.ColorIndex = xlColorIndexNone ' remove any previous shading For r = lngStep To .Rows.Count Step lngStep .Rows(r).Interior.ColorIndex = intColor Next r End With End Sub Sub ShadeAlternateColumns(rngTarget As Range, _ intColor As Integer, lngStep As Long) ' adds a background color = intColor to every lngStep column in rngTarget ' example: ShadeAlternateColumns Range("A1:J20"), 27, 2 ' colors every 2 columns light yellow Dim c As Long If rngTarget Is Nothing Then Exit Sub With rngTarget .Interior.ColorIndex = xlColorIndexNone ' remove any previous shading For c = lngStep To .Columns.Count Step lngStep .Columns(c).Interior.ColorIndex = intColor Next c End With End Sub