Colorier toutes les valeurs inférieures à une certaine valeur avec Excel VBA

Ci-dessous, nous examinerons un programme dans Excel VBA qui parcourt toute la première colonne et colore toutes les valeurs inférieures à une certaine valeur.

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

1. Tout d’abord, déclarez une variable appelée i de type Long. Nous utilisons ici une variable de type Long car les variables Long ont une capacité plus grande que les variables Integer.

Dim i As Long

2. Ensuite, ajoutez la ligne de code qui change la couleur de police de toutes les cellules de la colonne A en noir.

Columns(1).Font.Color = vbBlack

3. Ajoutez la boucle.

For i = 1 To Rows.Count

Next i

Remarque: les feuilles de calcul peuvent avoir jusqu’à 65 536 lignes dans Excel 2003 et jusqu’à 1 048 576 lignes dans Excel 2007 ou version ultérieure. Quelle que soit la version que vous utilisez, la ligne de code ci-dessus parcourt toutes les lignes (le fichier Excel téléchargeable est au format Excel 97-2003).

4. Ensuite, nous colorions toutes les valeurs inférieures à la valeur entrée dans la cellule C4. Les cellules vides sont ignorés. Ajoutez les lignes de code suivantes à la boucle.

If Cells(i, 1).Value < Range("C4").Value And Not IsEmpty(Cells(i, 1).Value) Then

    Cells(i, 1).Font.Color = vbRed

End If

Résultat lorsque vous cliquez sur le bouton de commande sur la feuille (cela peut prendre un certain temps):

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