Ci-dessous, nous examinerons un programme en Excel VBA ce boucle sur 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 plus grande capacité que les variables Integer.
Dim j'aussi longtemps
2. Ensuite, ajoutez la ligne de code qui change la couleur de police de toutes les cellules de la colonne A en noir.
Colonnes(1).Font.Color = vbBlack
3. Ajoutez la boucle.
Pour i = 1 To Rows.Count
Ensuite je
Remarque : les feuilles de calcul peuvent contenir 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.
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
Fin si
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille (cela peut prendre un certain temps) :
