C
carlos
Guest
Bonjour
J'ai trouvé sur ce forum cette macro tres interessante :
Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell
End Function
j'ai ecris ceci grace à elle :
Sub couleur()
ColorCountIf = 0
For Each cell In Range('d4:d44')
If cellc.Interior.ColorIndex > 0 Then cellc.Offset(0, 3) = 'couleur' And ColorCountIf = ColorCountIf + 1
Next cellc
End Sub
Mais je n'arrive pas à calculer le nombre ce cellule qui sont colorés (>0)
Et aucune autre recherche sur ce forum ne m'aide ????
Merci
J'ai trouvé sur ce forum cette macro tres interessante :
Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell
End Function
j'ai ecris ceci grace à elle :
Sub couleur()
ColorCountIf = 0
For Each cell In Range('d4:d44')
If cellc.Interior.ColorIndex > 0 Then cellc.Offset(0, 3) = 'couleur' And ColorCountIf = ColorCountIf + 1
Next cellc
End Sub
Mais je n'arrive pas à calculer le nombre ce cellule qui sont colorés (>0)
Et aucune autre recherche sur ce forum ne m'aide ????
Merci