Comptage des cellules en fonction des couleurs de remplissage

[pikous]

Bonjour à tous,

Je cherche le moyen de comptabiliser les cellules (jusque là aucun problème) mais en fonction des couleurs de remplissage.
Ex : le journée de mardi compte 4 couleurs pour 4 activités, comment comptabiliser les activités individuellement ?

Voir fichier joint et merci d'avance

 

[Mexounet]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour Pikous,

Peux tu enregistrer ton fichier en xls. je ne peux pas l'ouvrir.

 

[pikous]

Re : Comptage des cellules en fonction des couleurs de remplissage

Et voilà...

 

[piga25]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour pikous

Avec une fonction personnalisée

Function NombreCouleur(r As Range, c As Integer)
'fonction créé par JCGL
Dim Cel As Range
   Application.Volatile
   For Each Cel In r.Cells
      NombreCouleur = NombreCouleur - (Cel.Interior.ColorIndex = c)
   Next Cel
End Function

 

[piga25]

Re : Comptage des cellules en fonction des couleurs de remplissage

Re

Encore plus simple et sans connaître le code des couleurs

Public Function NombreCouleur(couleur As Range, plage As Range)
For Each c In plage
    If c.Interior.Color = couleur.Interior.Color Then nbr = nbr + 1
Next c
NombreCouleur = nbr
End Function

 

[materhorn]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour à tous

J'ai un probléme similaire mais avec la couleur de texte

Comment peut on transposer ce comptage sur la couleur texte et non pas couleur cellule

Par avance Merci

jean louis

 

[piga25]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour materhorn

Le mieux aurait été d'ouvrir un autre fil, mais bon!!!

Voir si l'exemple ci-dessous convient (le code n'est pas de moi, merci a celui qui l'a créé dont j'ignore le nom);

Function ColorFontCountIf(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorFontCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
    If cell.Font.ColorIndex = MaCoul Then ColorFontCountIf = ColorFontCountIf + 1
Next cell
End Function

 

[david84]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour tout le monde,
légèrement différent de Piga mais du même ordre :

Function NombreCouleur(Plage As Range, couleur As Range) As Long
Dim Cel As Range
   Application.Volatile
   For Each Cel In Plage.Cells
   If Cel.Interior.ColorIndex = couleur.Interior.ColorIndex Then NombreCouleur = NombreCouleur + 1
   Next Cel
End Function

A+

Edit : désolé Piga, pas vu ton 2ème message

 

[david84]

Re : Comptage des cellules en fonction des couleurs de remplissage

Re

Comment peut on transposer ce comptage sur la couleur texte et non pas couleur cellule

en remplaçant

Interior.ColorIndex

par

Font.ColorIndex

A+

 

[piga25]

Re : Comptage des cellules en fonction des couleurs de remplissage

Re

Fonction légérement plus courte pour calculer le nombre de texte d'une même couleur.

Public Function NombreCouleurTexte(Couleur As Range, plage As Object) As Integer
For Each c In plage
    If c.Font.ColorIndex = Couleur.Font.ColorIndex Then Nbr = Nbr + 1
Next c
NombreCouleurTexte = Nbr
End Function

 

[TempusFugit]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour

Il est aussi possible ne pas employer le If / Then

Public Function NombreCouleurTexte(Couleur As Range, plage As Object) As Integer
For Each c In plage
Nbr = -(c.Font.ColorIndex = Couleur.Font.ColorIndex) + Nbr
Next c
NombreCouleurTexte = Nbr
End Function

 

[pikous]

Re : Comptage des cellules en fonction des couleurs de remplissage

Merci beaucoup pour tous ces conseils.
Je teste ça ce soir.

 

[materhorn]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour a tous

merci beaucoup cela fonctionne pour mes fichiers et notemment en ce qui concerne le comptage de texte.Toutefois j'ai un fichier ou la couleur est déterminée par un format conditionnel et dans ce cas le résultat est 0 .
Y a t il une solution

Materhorn

 

[piga25]

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour

Pour cela il faudrait un fichier afin de cerner le problème.