Calcul des cases en rouge

jp14 à dit:

Bonjour

Un exemple de procédures qui utilise des couleurs.

https://www.excel-downloads.com/threads/macro-fonction-recherche.112104/

Exemple de fonction personnalisé pour compter des couleurs

Code:

champ plage ou se trouve les cellules
Couleurfond valeur numérique de la couleur

Function CompteCouleurFond(champ As Range, couleurfond as integer)
    Application.Volatile
    Dim c, temp
    temp = 0
    For Each c In champ
      If c.Interior.ColorIndex = couleurfond Then
         temp = temp + 1
      End If
    Next c
    CompteCouleurFond = temp
End Function


Compter des couleur avec des caractères "gras"

Function CompteCouleur(champ As Range, couleurfond As Integer, Gras As Boolean)
    Application.Volatile
    Dim cellule, temp
    temp = 0
    For Each cellule In champ
      If cellule.Font.ColorIndex = couleurfond And cellule.Font.Bold = True Then
         temp = temp + 1
      End If
    Next cellule
    CompteCouleur = temp
End Function

Le rouge correspond à la valeur 3

JP

Cliquez pour agrandir...