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 :
- Appuyez sur <Alt+F11> pour ouvrir Visual Basic Editor.
- Dans le menu Insertion, cliquez sur Module.
- 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
- Revenez à la feuille de calcul et dans la cellule A7 tapez la formule suivante :
=SumColorF(A1:A6; 3)
- 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).