Comme l’a appris le conseil précédent, il est assez facile d’additionner les cellules qui sont ombrées. Ici, nous additionnerons toutes les cellules formatées avec la couleur de police rouge. Utilisez la feuille de calcul de l’astuce précédente, en changeant le style de police de deux valeurs en rouge. Créez une nouvelle fonction définie par l’utilisateur comme décrit ci-dessous.

Pour additionner toutes les cellules avec une couleur de police particulière :

1. Appuyez sur <Alt+F11> pour ouvrir Visual Basic Editor.
2. Dans le menu Insertion, cliquez sur Module.
3. Tapez la fonction suivante :

Function SumColorF(Area As Range, Ci As Integer)
Dim sng As Single, rng As Range

For Each rng In Area

If rng.Font.ColorIndex = Ci Then sng = sng+rng.Value

Next rng

SumColorF = sng

End Function

4. Revenez à la feuille de calcul et dans la cellule A7 tapez la formule suivante :

=SumColorF(A1:A6; 3)

5. Press <Enter>.

FIGURE 

REMARQUE La valeur entière Ci est le critère de recherche de la couleur de la police (par exemple, 1=noir, 2=blanc,

3=rouge, 4=vert, 5=bleu).