XL 2013 Comptage de cellule colorisée

[Lericounet06]

Bonjour à tous,

j'essaye désespérément à trouver une solution à mon problème mais sans résultats.

explication :

Je souhaiterais compter les cellules colorées en rouge dans une colonne, en rose et en verte dans une autre (fichier joint avec explication)

Pouvez-vous m'aider svp ?

Merci d'avance

Bonne journée

Eric

 

[Usine à gaz]

Bjr Lericounet06 🙂, le Forum 🙂

Et Google, c'est fait pour qui ? lol 🙂

Google Search

"excel vba compter les cellules colorées"
🙂

 

[Lericounet06]

Bjr Lericounet06 🙂, le Forum 🙂

Et Google, c'est fait pour qui ? lol 🙂

Google Search

"excel vba compter les cellules colorées"
🙂

j'ai cherché justement sur google et j'ai pas réussi à trouver une formule ni VBA qui ne plante pas
sinon j'aurais pas fait la demande

 

[Usine à gaz]

Vois ce fichier 🙂

 

[Lericounet06]

Vois ce fichier 🙂

merci pour le fichier, mais çà ne fonctionne pas pour mon cas

 

[mapomme]

Bonjour @Lericounet06 🙂, @Usine à gaz 😉,

Cliquer sur le bouton Hop!

L'avantage de la macro, c'est qu'elle est indépendante des formules de la MFC et des couleurs indiquées dans la MFC. A chaque exécution, elle reconstruit la liste des couleurs et des nombres de cellules avec ces couleurs (la macro ne prend pas en compte les formules mais simplement les couleurs résultantes dues à l'application de la MFC). On peut donc changer les formules, les couleurs sans que la macro ne soit à modifier.

Le code est dans le module de la feuille "Feuil1" :

Sub compter()
Dim der, i&, j&, n, coul&
   Application.ScreenUpdating = False
   Range("g2:h" & Rows.Count).Clear
   der = Application.Max(Application.IfError(Application.Match(9 ^ 99, Columns("d:d")), 0), Application.IfError(Application.Match(String(255, "z"), Columns("d:d")), 0))
   i = Application.Max(Application.IfError(Application.Match(9 ^ 99, Columns("e:e")), 0), Application.IfError(Application.Match(String(255, "z"), Columns("e:e")), 0))
   If i > der Then der = i
   For i = 2 To der
      For j = 0 To 1
         coul = Cells(i, 4 + j).DisplayFormat.Interior.Color
         On Error Resume Next
         n = Application.Match(coul, Columns("g:g"), 0)
         On Error GoTo 0
         If IsError(n) Then
            n = Application.Max(Application.IfError(Application.Match(9 ^ 99, Columns("g:g")), 0), Application.IfError(Application.Match(String(255, "z"), Columns("g:g")), 0))
            Cells(n + 1, "g") = coul
            Cells(n + 1, "g").Interior.Color = coul
            Cells(n + 1, "h") = Cells(n + 1, "h") + 1
         Else
            Cells(n, "h") = Cells(n, "h") + 1
         End If
      Next j
   Next i
   Range("g2").CurrentRegion.Borders.LineStyle = xlContinuous
   Range("g2:g" & Rows.Count).ClearContents
End Sub

 

[Phil69970]

Bonjour à tous

En vacances et en passant je propose ce fichier
Le comptage se fait sur double click colonne D et E

 

[Lericounet06]

Merci à tous pour vos réponses comme d'habitude.
J'ai réussi à faire un VBA en suivant un tuto youtube et çà fonctionne bien.
Dés que je rentre de vacances, je regarderai en détail vos fichiers pour comparer la meilleures solution pour moi.

Un grand merci à tous et bonnes vacances pour ceux qui y sont

Eric

 

[fanfan38]

Bonjour
Comptage par formule

A+ François

 

[Lericounet06]

Bonjour
Comptage par formule

A+ François

Bonjour François,

c'est top comme d'hab mais peux-tu me dire comment tu trouves le code couleur car sur mon fichier source le comptage n'est pas bon

 

[fanfan38]

Bonjour
Je n'utilise pas la couleur mais la condition de la MFC...
A+ François