XL 2013 Calcul nombre ligne en couleur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Moreno076

XLDnaute Impliqué
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.
 

Pièces jointes

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.
 

Pièces jointes

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.
Bonjour Sylvanu.

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

Merci bien.

1614004624307.png
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Tableau
Réponses
24
Affichages
1 K
Retour