Comptage des cellules en fonction des couleurs de remplissage

M

Mexounet

XLDnaute Junior

• 29 Septembre 2011

• #2

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.

 

Vote positif 0 Vote négatif

P

pikous

Guest

• 29 Septembre 2011

• #3

Re : Comptage des cellules en fonction des couleurs de remplissage

Et voilà...

 

Pièces jointes

• nat edt.xls

  39 KB · Affichages: 79
• nat edt.xls

  39 KB · Affichages: 86
• nat edt.xls

  39 KB · Affichages: 81

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 29 Septembre 2011

• #4

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour pikous

Avec une fonction personnalisée

VB:

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

 

Pièces jointes

• nat edt.xls

  63 KB · Affichages: 81
• nat edt.xls

  63 KB · Affichages: 85
• nat edt.xls

  63 KB · Affichages: 91

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 29 Septembre 2011

• #5

Re : Comptage des cellules en fonction des couleurs de remplissage

Re

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

VB:

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

 

Pièces jointes

• nat edt.xls

  63 KB · Affichages: 105
• nat edt.xls

  63 KB · Affichages: 103
• nat edt.xls

  63 KB · Affichages: 97

Vote positif 0 Vote négatif

M

materhorn

XLDnaute Occasionnel

• 29 Septembre 2011

• #6

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

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 29 Septembre 2011

• #7

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);

VB:

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

 

Pièces jointes

• somme avec couleur piga25.xls

  46 KB · Affichages: 78

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 29 Septembre 2011

• #8

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 :

Code:

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

 

Pièces jointes

• couleur.xls

  52.5 KB · Affichages: 80
• couleur.xls

  52.5 KB · Affichages: 87
• couleur.xls

  52.5 KB · Affichages: 86

Dernière édition: 29 Septembre 2011

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 29 Septembre 2011

• #9

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

Cliquez pour agrandir...

en remplaçant

Interior.ColorIndex

Cliquez pour agrandir...

par

Font.ColorIndex

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 29 Septembre 2011

• #10

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.

VB:

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #11

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour

Il est aussi possible ne pas employer le If / Then

Code:

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

 

Vote positif 0 Vote négatif

P

pikous

Guest

• 29 Septembre 2011

• #12

Re : Comptage des cellules en fonction des couleurs de remplissage

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

 

Vote positif 0 Vote négatif

M

materhorn

XLDnaute Occasionnel

• 30 Septembre 2011

• #13

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

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 30 Septembre 2011

• #14

Re : Comptage des cellules en fonction des couleurs de remplissage

Bonjour

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

 

Vote positif 0 Vote négatif