Mise en forme à l’aide d’une disposition en alternance avec Excel VBA

L’utilisation d’un système alternatif permet d’obtenir l’effet dans lequel les lignes suivantes contenant des données sont alternativement marquées en couleur. En règle générale, ce formatage est utilisé dans les rapports destinés aux personnes pour lesquelles les données de lignes individuelles sont pertinentes. Le système en alternance rend les données légèrement plus lisibles. La macro permet l’application automatique du système alternatif pour chaque ligne de la plage indiquée.

Comment ca marche?
Deux variables d’objet du type Range ont été utilisées dans la macro. L’un d’entre eux stocke la plage de données avec laquelle nous travaillons, tandis que l’autre stocke les données de chaque plage de cellules traitées successivement dans la boucle. Ensuite, toutes les cellules de la plage donnée sont activées séquentiellement en utilisant For Each. Lorsqu’une ligne donnée est active, la propriété Offset est utilisée pour évaluer l’index de couleur de la ligne précédente. Si la couleur est blanche, la couleur verte est utilisée dans la ligne en cours.

Sub MiseEnForme ()
'Étape 1: Déclaration des variables
Dim MaPlage As Range
Dim MaLigne As Range
'Étape 2: Définir la plage de cellules
Set MaPlage = Selection
'Étape 3: Commencez la boucle pour la plage de cellules
For Each MaLigne In MaPlage.Rows
'Étape 4: Vérifier si la ligne a un nombre pair
If MaLigne.Row Mod 2 = 0 Then
'Étape 5: Appliquez la bonne couleur
MaLigne.Interior.ColorIndex = 35
Else
MaLigne.Interior.ColorIndex = 2
End If
'Étape 6: La boucle passe à la ligne suivante
Next MaLigne
End Sub

1. Tout d’abord, deux variables d’objet (type Range) sont décodées. Le premier, appelé MaPlage, stocke des informations sur la plage de cellules. La seconde, MaLigne, stocke des informations sur chaque traitement ultérieur en cours de traitement dans une boucle.
2. Dans la deuxième étape, la plage de cellules est transmise à la variable MaPlage. Dans l’exemple en question, la plage déjà sélectionnée dans la feuille a été sélectionnée. Bien entendu, la variable MaPlage peut facilement être définie sur une plage spécifique, par exemple Plage (“A1: Z100”).
3. Dans cette étape, une boucle est lancée pour les cellules de la plage indiquée, qui seront utilisées pour les traiter.

4. Lorsque la cellule est active, il est vérifié si la ligne en cours a un nombre pair.
5. Si le numéro de ligne est pair, la macro passera au vert (le numéro dans l’index des couleurs 35). Si c’est impair, alors la couleur avec l’index 2 sera utilisée.

6. Dans la sixième étape, la boucle passe à la cellule suivante. Après activation de toutes les cellules du champ d’action de fin de macro.


Comment utiliser la macro?
La macro personnelle du magasin de macros est l’endroit le plus difficile à stocker cette macro. Grâce à cela la macro sera toujours disponible. Le classeur de macros personnelles est chargé à chaque fois pendant le démarrage d’Excel. Dans la fenêtre Projet de l’éditeur VBE, le nom de fichier sera nommé PERSONAL.XLSB.
1. Utilisez la combinaison Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur PERSONAL.XLSB.
3. Sélectionnez Insérer / Module dans le menu.
4. Tapez ou collez le code.
Si vous ne pouvez pas voir le fichier PERSONAL.XLSB, cela signifie qu’il n’a pas encore été créé. Vous devez enregistrer la macro et indiquer le classeur de macros personnelles comme emplacement de stockage.
Pour enregistrer la macro dans l’album de macros personnelles, sélectionnez-la dans la boîte de dialogue Relecture de la macro qui apparaît lors de l’enregistrement de la macro. Cette option est disponible dans la liste déroulante Store macro W. Il suffit d’enregistrer le clic de plusieurs sociétés, puis de remplacer la macro par celle précédemment décrite.

S’abonner
Notifier de
0 Commentaires
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
()
x