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):
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.
2. Ensuite, ajoutez la ligne de code qui change la couleur de police de toutes les cellules de la colonne A en noir.
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 IfRésultat lorsque vous cliquez sur le bouton de commande sur la feuille (cela peut prendre un certain temps):
Initiation à Excel
Fonctions Excel
Excel VBA
Macros VBA Utiles
Plus d'outils
Sur Facebook
Sur YouTube