CompteCouleur

Retour vers Excel

Imposer un code Couleur sur une plage de cellules et les dénombrer

Imaginons que nous souhaitions colorer les cellules comprises entre A1 et D8 si celles-ci contiennent une valeur supérieure ou égale à A et nous souhaitons aussi connaître combien de cellules sont colorées, nous poserons le résultat en D9
Voici ce que nous obtiendrons

Chaque fois, qu'une nouvelle valeur sera entrée, une évaluation sera faite et la couleur adaptée en conséquence
Pour cela nous avons besoin d'une macro qui se présente dans un module comme ceci :

Sub CompteCouleur()
Dim Compte As Integer
'pour remettre la couleur à rien
Range("A1:D8").Interior.ColorIndex = xlColorIndexNone
'les cellules surveillées
For Each c In Range("A1:D8")
'condition fixée
If c >= "A" Then
'couleur appliquée ici rouge
c.Interior.ColorIndex = 3
'pour faire la somme des cellules remplies
Compte = Compte + 1
End If
Next
'pour afficher notre somme en D9
Range("D9") = Compte
End Sub

Pourquoi avoir choisi un module ? et bien, justement cette fonction est intéressante et on doit pouvoir l'utiliser partout dans le classeur. Il nous suffit de l’appeler à partir des feuilles avec le petit code qui suit :

Et voilà , c'est terminé !

Pour info, voici l'index des couleurs que l'on peut appliquer

On peut automatiser cela en fonction, c'est démontré dans le fichier exemple

Télécharger le fichier exemple CompteCouleur

FIN