Ci-dessous, nous examinerons un programme dans Excel VBA qui boucle à travers la totalité de la première colonne et les couleurs toutes les valeurs qui sont inférieures à une certaine valeur.

Loop Through Entire Column in Excel VBA

Loop Through Entire Column in Excel VBA

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

  1. Tout d’abord, déclarer une variable appelée i de type long. Nous utilisons ici longtemps une variable de type parce que les variables ont une plus grande capacité à long que les variables entières.

Dim i As Long

  1. Ensuite, ajoutez la ligne de code qui change la couleur de police de toutes les cellules dans la colonne A au noir.

Columns(1).Font.Color = vbBlack

  1. Ajouter la boucle.

For i = 1 To Rows.Count

Next i

Remarque: les feuilles de calcul peuvent avoir jusqu’à 1.048.576 lignes dans Excel 2007 ou plus tard.

Peu importe la version que vous utilisez, la ligne de code ci-dessus boucles à travers toutes les lignes.

  1. Ensuite, nous colorent toutes les valeurs qui sont inférieures à la valeur entrée dans la cellule D2. Les cellules vides sont ignorées. Ajoutez les lignes de code suivantes à la boucle.

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

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

End If

Lorsque vous cliquez sur le bouton de commande sur la feuille (cela peut prendre un certain temps):

Loop Through Entire Column Result

Loop Through Entire Column Result