Boucle dans la colonne entière dans Excel VBA

Ci-dessous, nous examinerons un programme en Excel VBA cette 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. Commencez par déclarer une variable appelée i de type Long. Nous utilisons une variable de type Long ici 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 modifie la couleur de police de toutes les cellules de la colonne A en noir.

Columns(1).Font.Color = vbBlack

3. Ajouter la boucle.

For i = 1 To Rows.Count

Next i

Remarque: Les feuilles de calcul peuvent contenir jusqu'à 65 536 lignes dans Excel 2003 et jusqu'à 1 048 576 lignes dans Excel 2007 ou une 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 colorons toutes les valeurs 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

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