XL 2013 Calcul nombre ligne en couleur

sylvanu à dit:

Bonjour Moreno,
Un essai en PJ avec :

VB:

Sub ColorCount()
Application.ScreenUpdating = False
Dim Y%, B%, W%, C, Blue, Yellow, White
Yellow = RGB(255, 255, 0): Blue = RGB(0, 176, 240): White = RGB(255, 255, 255)
For L = 2 To Range("A65500").End(xlUp).Row
    C = Cells(L, "A").Interior.Color
    If C = Yellow Then
        Y = Y + 1
    ElseIf C = Blue Then
        B = B + 1
    ElseIf C = White Then
        W = W + 1
    End If
Next L
Cells(2, "K") = B: Cells(2, "L") = Y: Cells(2, "M") = W
End Sub

Je l'ai fait par bouton car un recalcul à chaque modif de cellule serait long et désagréable.
J'ai mis les trois couleurs alors que le blanc ne serait pas utile mais cela permet de mettre une 4eme couleur non comptée par ex, comme produit obsolète.

Cliquez pour agrandir...