Compter les case rouge et vers

[akramenergie]

Bonjour mes amis
j'ai un fichier excel qui contien une list des nom des colaborateur devant chaque nom il ya une case soit elle est colorer en rouge soit en vers
j'aimerais bien faire un bilan sur le nobre des cases vers et rouge

cad compter j'en ai conbient rouge et conbien vers



Merci

 

[PascalXLD]

Re : Compter les case rouge et vers

Bonjour

une petite fonction VBA

Function sommecouleur(MaPlage As Range, MaCellRef As Range)

Dim c As Range
Dim montotal As Double
Application.Volatile True
For Each c In MaPlage
    If c.Interior.ColorIndex = MaCellRef.Interior.ColorIndex Then
    montotal = montotal + 1
    End If
    
Next

sommecouleur = montotal

End Function

 

[PascalXLD]

Re : Compter les case rouge et vers

RE

un petit fichier exemple