Compter les cellules en couleur par colonne

Question

Voici un petit défi (probablement même pas un défi sur ce forum): J'ai une énorme plage de données étendue sur 2 ans environ et jour par jour. Chaque jour est une colonne et sous chacune de ces journée on peut y retrouver sois une cellule verte, orange ou simplement vide selon le type de travail accompli par l'unité (qui sont listées dans la colonne A). Mon but est de savoir combien de cellules vertes ou oranges se retrouve sous chaque journée (colonne).Je n'ai pas besoin de savoir pour la cellule vide. Le résultat du décompte pourrais se retrouver dans la ligne 47 par exemple. J'ai commencé avec un simple nb.si mais cela va me prendre une éternité! À noter que le document n'est pas encore complet côté data et c'est pourquoi je suggère la ligne 47 pour les résultats. Merci beaucoup à tous et si je ne suis pas assez clair laissé moi le savoir! nb: J'ai joint mon fichier au présent message...

EngueEngue · Accepted Answer

Fais tourner ce code:

Résultats:

Oranges: 691

Vertes: 1762

Blanches : 7920

Sub toto()
    Dim i As Integer, vert As Integer, orange As Integer, blanc As Integer, col As Integer, lig As Integer
    With Sheets("GÉNÉRAL")
        .Range("C47") = "Oranges"
        .Range("C48") = "Vertes"
        .Range("C49") = "Blanches"
        For col = 4 To 256
            vert = 0
            orange = 0
            blanc = 0
            For lig = 6 To 46
                If .Cells(lig, col).Interior.Color = RGB(0, 176, 80) Then
                    vert = vert + 1
                Else
                    If .Cells(lig, col).Interior.Color = RGB(226, 107, 10) Then
                        orange = orange + 1
                    Else
                        blanc = blanc + 1
                    End If
                End If
            Next lig
            .Cells(47, col) = orange
            .Cells(48, col) = vert
            .Cells(49, col) = blanc
        Next col
    End With
End Sub