Comptage de couleur MFC

Bonjour à tous.

Après avoir fais 2 colonnes: La 1ère (en col F) une date et La 2eme (en G) la date en F + 2ans grâce à la formule "mois.decaler" , j ai utilisé les MFC pour mettre en jaune la case en G si on est à moins de 6 mois de la date...en orange si on est à moins de 3 mois et en rouge si c est dépassé...

Maintenant je souhaiterai pouvoir compter le nombre de cases de chaque couleur mais je suis dans une grosse impasse. Je suis débutant en excel...

Merci d avance.

Bonjour,

en espérant qu un coup de main soit possible.

A tester :

Ca marche mais je n arrive pas a le transposer à un autre onglet...

Bonjour,

... Une autre solution, en pièce jointe (attention, les résultats obtenus pour les jaunes et oranges sont liés aux rouges ...

Bonjour,

Sub NbColor()
    Dim Tnb(2, 0) As Integer, clr, c As Range, i%
    clr = Array(vbYellow, RGB(255, 192, 0), vbRed)
    With ActiveSheet
        For Each c In .Range("G6:G15")
            For i = 0 To 2
                If c.DisplayFormat.Interior.Color = clr(i) Then
                    Tnb(i, 0) = Tnb(i, 0) + 1: Exit For
                End If
            Next i
        Next c
        .Range("K6:K8").Value = Tnb
    End With
End Sub

Cordialement.

Merci à tous et particulièrement à U.Milité!!

J ai retenu cette solution qui a mon niveau est la plus compréhensible et surtout la plus simple à modifier et adapter...

Merci à tous pour votre aide rapide en tout cas...