Discussion :

[Nico.C]

Bonjour,

Dans un fichier excel, je cherche comment faire pour comptabiliser automatiquement le nombre de cellules en couleur, et cela dans une zone bien définie de la page.

Merci de vos réponses.

[ouisansdoute]

Bonjour,

Tu peux passer par une macro. par exemple celle-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Cellules_en_Couleur()
Dim i As Integer ' Compteur
Dim C As Range 'Cellule de la plage
i = 0
For Each C In Sheets(1).Range("A1:A20")
    If C.Interior.ColorIndex > 0 Then
    i = i + 1
    End If
Next C
MsgBox "Nombre des cellules avec fond de couleur sur la plage A1:A20 : " & i
End Sub

[Gorfael]

Salut Nico.C et le forum
Comment sont coloriées tes cellules ? Si c'est par la couleur de fond, tu peux soit utiliser la macro de ouisansdoute, soit utiliser une Function de même facture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function Cellules_Coul(Plage As Range, Index_coul As Long) As Long
Dim Cel As Range
Application.Volatile    'recalcule la fonction en même temps que la feuille
For Each Cel In Plage
   If Cel.Interior.ColorIndex = Index_coul Then Cellules_Coul = Cellules_Coul + 1
Next Cel
End Function

il suffira de la chercher dans les formules personnalisées et de remplir les 2 critères :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Cellules_Coul(A1:G15;3)

me donnera le nombre de cellules en rouge dans la plage de A1 à G15. À condition que la couleur ne soit pas donnée par une MFC, et que la feuille soit recalculée (les changement de format ne lancent pas le recalcul de la feuille, un double-clic suffit).
A+

[Nico.C]

Merci beaucoup à ouisansdoute et Gorfael pour leurs réponses.

Les deux macros marchent très bien mais celle de Gorfael correspond plus à mes besoins.