compter nombre de cellule contenant un texte de couleur "bleu"

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"

Cliquez pour agrandir...