Exemple de création de modèle, Excel VBA

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:

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x