Compter les cellules d'une certaines couleur avec mise en forme
Bonjour,
Bonjour,
Je souhaiterai pouvoir dénombrer les cellules d'une couleur donnée, dans un tableau excel,
cette couleur étant dépendante d'une mise en forme conditionnelle.
J'ai réalisé une macro :
Function CompteCouleurFondRef(champ As Range, couleurFond As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond.Interior.ColorIndex Then
temp = temp + 1
End If
Next c
CompteCouleurFondRef = temp
End Function
Elle fonctionne, mais seulement sur les couleur mise manuellement. le format sous mise en forme conditionnel n'est pas pris en compte :(
Merci d'avance
Maxime
Bonjour,
Je souhaiterai pouvoir dénombrer les cellules d'une couleur donnée, dans un tableau excel,
cette couleur étant dépendante d'une mise en forme conditionnelle.
J'ai réalisé une macro :
Function CompteCouleurFondRef(champ As Range, couleurFond As Range)
Application.Volatile
Dim c, temp
temp = 0
For Each c In champ
If c.Interior.ColorIndex = couleurFond.Interior.ColorIndex Then
temp = temp + 1
End If
Next c
CompteCouleurFondRef = temp
End Function
Elle fonctionne, mais seulement sur les couleur mise manuellement. le format sous mise en forme conditionnel n'est pas pris en compte :(
Merci d'avance
Maxime
2 réponses
-
Bonsoir Maxime39,
Une façon de faire est de reprendre les critères qui font la mise en forme des cellules ..
Edit:
.. avec un NB.SI associé -
Bien vu ! Merci !
J'étais partis là dessus, mais je pensai qu'une macro serai mieux.
Si quelqu'un en connais une, je suis preneur. Même si celà fonctionne avec un NB.SI et une SOMMEPROD
Maxime
