couleur d'une cellule

[JLB974]

Bonjour,

y a-t-il un moyen de compter le nombre de cellules sans remplissage ou au contraire en couleur, dans une plage ?

Merci d'avance pour les réponses 🙂

 

[Robert]

Re : couleur d'une cellule

Bonjour JLB, bienvenu dans le forum, bonjour le forum,

Pour compter les cellules vides je te propose le code suivant :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim nb As Long 'déclare la variable nb (NomBre)
For Each cel In Range("A1:E30") 'boucle sur la plage "A1:E30" (à adapter)
    If cel.Interior.ColorIndex = xlNone Then nb = nb + 1 'si la cellule n'as pas de couleur, incrément nb de 1
Next cel 'prochaine cellule de la plage
MsgBox nb & " cellules sans couleur !" 'message pour afficher nb
End Sub

Pour compter une couleur spécifique il suffit de remplacer xlNone par le numéro ColorIndex de cette couleur...

Édition

Je pense que sur ta verion il y a beaucoup plus simple mais je ne connais pas... Le code que je t'ai donné s'applique plutôt à Excel 2003... (P... de versions !)

 

[JLB974]

Re : couleur d'une cellule

Merci pour la macro et bravo pour la rapidité !