Comptabilise les cellules de couleurs en fonction des couleurs

kalouxv

XLDnaute Nouveau
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
 

Pièces jointes

  • Nouveau Feuille Microsoft Office Excel.xlsx
    8.8 KB · Affichages: 51
  • Nouveau Feuille Microsoft Office Excel.xlsx
    8.8 KB · Affichages: 60
  • Nouveau Feuille Microsoft Office Excel.xlsx
    8.8 KB · Affichages: 58

pierrejean

XLDnaute Barbatruc
Re : Comptabilise les cellules de couleurs en fonction des couleurs

Bonjour kalouxv

Et bienvenue sur XLD

Vois si cela te convient (Formule personnalisée)
 

Pièces jointes

  • Nouveau Feuille Microsoft Office Excel.xlsm
    15.6 KB · Affichages: 72
  • Nouveau Feuille Microsoft Office Excel.xlsm
    15.6 KB · Affichages: 78
  • Nouveau Feuille Microsoft Office Excel.xlsm
    15.6 KB · Affichages: 77

Dull

XLDnaute Barbatruc
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:)

Code:
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

Code:
=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
 

Pièces jointes

  • Nouveau Feuille Microsoft Office Excel.xlsm
    15.1 KB · Affichages: 71
  • Nouveau Feuille Microsoft Office Excel.xlsm
    15.1 KB · Affichages: 81
  • Nouveau Feuille Microsoft Office Excel.xlsm
    15.1 KB · Affichages: 79
Dernière édition:

kalouxv

XLDnaute Nouveau
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

XLDnaute Barbatruc
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:

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

dans le module de la feuille
 

Discussions similaires