Comptage selon la couleur de fond

Bonjour Solrémila,

Avec ceci, à adapter à ta feuille :


Sub CompteCouleur()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = 3 Then i = i + 1
Next
End Sub

Cette petite proc te donne la teinte correspondant aux colorindex (se
lance par un double click)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

Hello ! Comment calculer dans une feuille le nombre de cellules dont le
fond est coloré en une couleur donnée ?

--
@+ thierryp

Euhhh !!!Petite précision; si j'ai bien appris mes leçons sur ce forum,
si la couleur vient d'une mise en forme conditionnelle, impossible de
retrouver son colorindex...
Si c'est le cas, un petit coup de google sur le forum, ou encore :
http://www.excelabo.net/index.php

Bonjour Solrémila,

Avec ceci, à adapter à ta feuille :


Sub CompteCouleur()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = 3 Then i = i + 1
Next
End Sub

Cette petite proc te donne la teinte correspondant aux colorindex (se
lance par un double click)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

Hello ! Comment calculer dans une feuille le nombre de cellules dont le
fond est coloré en une couleur donnée ?

--
@+ thierryp

Bonjour,

http://cjoint.com/?mqmaHf6jau

Dans le tableur:

=CompteCouleur(B1:B100;3) pour compter les cellules à fond rouge

Dans un module:

Function CompteCouleur(champ As Range, couleur As Integer)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleur Then
temp = temp + 1
End If
Next c
CompteCouleur = temp
End Function

Cordialement JB