XL 2013 Calcul nombre ligne en couleur

[Moreno076]

Bonjour.

Dans le fichier ci-joint je voudrais que dans la cellule K2 soit inscrit le nombre de lignes contenant la couleur jaune, M2 en bleu et N2 blanc (pour le blanc le nombre de lignes remplies en blanc le tableau s'enrichie de ligne chaque semaine).

Merci pour votre aide.

 

[sylvanu]

Bonjour Moreno,
Un essai en PJ avec :

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.

 

[Moreno076]

Bonjour Moreno,
Un essai en PJ avec :

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.

Bonjour Sylvanu.

Impeccable, j'ai renommé produit restant c'est plus parlant.

Merci bien.