Il faut ajouter une fonction personnalisée.
Taper Alt-F11 pour entrer dans l'éditeur VBA et copier le code ci-dessous dans le Module1 (ou un autre module). Pour créer un module, clic-droit sur Modules, ligne Insertion, ligne Module.
'----- Début de partie à copier -----
Public Function NBCouleurs(ByVal Target As Range, _
ByVal Couleur As Integer) As Integer
Dim Cellule As Range
NBCouleurs = 0
For Each Cellule In Target
If Not IsEmpty(Cellule) And Cellule.Font.ColorIndex = Couleur Then 'Teste la couleur de la police d'une cellule non vide
NBCouleurs = NBCouleurs + 1
End If
Next
End Function
'----- Fin de partie à copier -----
Utilisation :
Dans une cellule, taper =NBCouleurs(A1:C12, 7) pour compter le nombre de cellules dont la police est de la couleur 7. Ceci fonctionne aussi : =nbval(A1:C12)-NBCouleurs(A1:C12, 7)
Pour tester la couleur de fond de la cellule, remplacer .Font. par .Interior. (les code couleurs sont les mêmes que pour les polices).
Pour les codes des couleurs, voir ce site
Color Palette and the 56 Excel ColorIndex Colors
"clotarn"