Comptabilise les cellules de couleurs en fonction des couleurs

[kalouxv]

Bonjour,
je cherche une formule me permettant de comptabiliser les cellules de couleurs en fonction de leurs couleurs, quelles soient vides ou non.
je vous joint un fichier explicatif de mes attentes.
merci,

kalouxv

 

[pierrejean]

Re : Comptabilise les cellules de couleurs en fonction des couleurs

Bonjour kalouxv

Et bienvenue sur XLD

Vois si cela te convient (Formule personnalisée)

 

[Dull]

Re : Comptabilise les cellules de couleurs en fonction des couleurs

Salut kalouxv et Bienvenue sur XLD, le Forum

Un essai avec une fonction de mapomme🙂

Function SommeCouleur(Zone As Range, CommeCellule As Range) ' By mapomme
Dim xCell As Range, Couleur

Couleur = CommeCellule(1, 1).Interior.Color
For Each xCell In Zone
  If xCell.Interior.Color = Couleur Then
    SommeCouleur = SommeCouleur + 1
  End If
Next xCell

End Function

et en K8 coller cette formule à copier vers le bas

=SommeCouleur(C8:I8;K8)

Copier la cellule (K8), sélectionner la plage K8:O10 et collage spéciale :Formule

EDITION: Oupsss... Salut Pierre 🙂 Pas rafraichit

Bonne Journée

 

[kalouxv]

Re : Comptabilise les cellules de couleurs en fonction des couleurs

magnifique !!! vraiment un grand merci à vous, vous êtes super et bonnes fêtes ....

 

[kalouxv]

Re : Comptabilise les cellules de couleurs en fonction des couleurs

excusez moi, je reviens vers vous car une fois que les couleurs sont comptabilisées je ne peux plus revenir en arriére. c à d que si j'enléve la couleur elle reste comptabilisé. merci

 

[pierrejean]

Re : Comptabilise les cellules de couleurs en fonction des couleurs

Re

Il n'y a pas d'evenement rattaché au changement de couleur
un plus sera obtenu par:

Private Sub Worksheet_Activate()
Calculate
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

dans le module de la feuille