Nous examinerons un programme dans Excel VBA qui crée un modèle.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:

1.Tout d’abord, nous déclarons deux variables de type Integer. Un nommé i et un nommé j.

Dim i As Integer, j As Integer

2. Deuxièmement, nous ajoutons deux boucles For Next.

For i = 1 To 5 Step 2

    For j = 1 To 5 Step 2

3. Ensuite, nous ajoutons la ligne qui change la couleur de fond des cellules en violet.

Cells(i, j).Interior.ColorIndex = 18

Remarque: au lieu de ColorIndex numéro 18 (violet), vous pouvez utiliser n’importe quel numéro ColorIndex.

4. Fermez les deux boucles For Next.

Next j

Next i

5. Testez le programme.

Résultat jusqu’ici.

Par exemple, pour i = 1 et j = 1, les cellules de couleurs Excel VBA (1,1), pour i = 1 et j = 3 (étape 2), les cellules de couleurs Excel VBA (1,3), pour i = 1 et j = 5, Cellules de couleurs Excel VBA (1,5), pour i = 3 (étape 2) et j = 1, Cellules de couleurs Excel VBA (3,1), etc.

6. Nous y sommes presque. La seule chose que nous devons faire est de colorer les cellules qui sont décalées d’une ligne au-dessous et d’une colonne à droite des cellules déjà colorées. Ajoutez la ligne de code suivante à la boucle.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 10

7. Testez le programme.

Résultat: