Connaissez-vous le papier d’impression qui est imprimé dans les centres de données? Sur ce papier, une ligne sur deux est généralement formatée dans la couleur verte. Vous pouvez également créer ce look à l’aide d’une macro. Pour ce faire, démarrez la macro à partir du listing .

Sub Couleur_toutes_les_deux_lignes ()

Dim i As Long

Sheets("Feuil2").Activate

For i = 1 To Selection.Rows.Count

If i Mod 2 = 1 Then

    Selection.Rows(i).Interior.ColorIndex = 4

End If

Next

End Sub

Utilisez la méthode Count pour compter les lignes marquées. Utilisez l’opérateur Mod pour trouver le reste de la division des deux nombres i et 2. Si la valeur 1 est renvoyée, colorez les lignes de la sélection avec la couleur d’arrière-plan VERTE

Ajoutez une nuance de vert à chaque autre rangée

La particularité de la solution est que la coloration n’a lieu que dans la zone marquée.

Ce qui fonctionne pour les lignes, bien sûr, fonctionne également pour les colonnes. Dans l’exemple suivant, toutes les autres colonnes sont colorées en VERT.

Sub coloriage_deuxième_colonne()

Dim i As Integer

Sheets("Feuil3").Activate

For i = 1 To Selection.Columns.Count

If i Mod 2 = 1 Then

    Selection.Columns(i).Interior.ColorIndex = 4

End If

Next

End Sub

Utilisez la méthode Count pour compter les colonnes marquées. Utilisez l’opérateur Mod pour trouver le reste de la division des deux nombres i et 2. Si la valeur 1 est renvoyée, colorez les colonnes de la sélection avec la couleur d’arrière-plan VERTE.

Seules les colonnes de la sélection sont colorées.

Dans l’exemple suivant, vous allez créer un calendrier. La tâche consiste maintenant à formater automatiquement les week-ends à l’aide d’une macro. Utilisez la macro du Listing  à cet effet.

Graphique : Couvrir chaque deuxième colonne avec un fond vert

Sub Formatage_week-end ()

Dim Cell As Range

Sheets("Feuil4").Activate

    For Each cell In ActiveSheet.Range("A1:O1")

        If Weekday(cell) = 1 Then

          With cell

            .Interior.ColorIndex = 16

            .Offset(1, 0).Interior.ColorIndex = 16

            .Offset(1, 0).Value = "SA"

          End With

        ElseIf Weekday(cell) = 7 Then

          With cell

            .Interior.ColorIndex = 15

            .Offset(1, 0).Interior.ColorIndex = 15

            .Offset(1, 0).Value = "SO"

          End With

        End If

    Next cell

End Sub

Configurez une boucle pour parcourir la plage de cellules A1: O1 cellule par cellule. Vous pouvez utiliser la fonction Jour de la semaine pour vérifier de quel jour il s’agit. La fonction Weekday attend une date valide comme argument. La fonction renvoie les valeurs du tableau .

Tableau:Les constantes pour les jours de la semaine

Si la fonction Jour de la semaine renvoie la valeur 1, il s’agit d’un dimanche. Dans ce cas, colorez la cellule d’une nuance de gris légèrement plus foncée. Écrivez également l’abréviation SO dans une cellule ci-dessous. Si la fonction Jour de la semaine renvoie la valeur 7, alors c’est un samedi. Dans ce cas, colorez la cellule d’une nuance de gris légèrement plus claire. De plus, écrivez l’abréviation SA dans une cellule ci-dessous.

Graphique : Le week-end a été mis en valeur en couleurs.