Case de couleur

[Dezall]

Bonjour,

je voudrai savoir si il existe une formule qui compte le nombre de case de même couleur. (exemple: compter dans un tableau les cases rouges).
Si vous avez une solution je suis preneur, cela fait longtemp que je cherche mais toujours pas trouvé. Merci

Dezzall

 

[noviceAG]

Re : Case de couleur

Bonsoir Dezall, le Forum,

Tiré de mes archives (auteur inconnu, désolé)
Dans cellule pour obtenir le résultat
=ColorCountIf(E2:N2;E2)

Dans un module
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

Bonne soirée.

 

[13GIBE59]

Re : Case de couleur

Bonjour Dezall.

Trouvé sur le site de Boisgontier, le fichier joint.

Cordialement.

 

[MJ13]

Re : Case de couleur

Bonjour à tous

Une autre solution que je viens de faire en nommant 2 zones.

Je met une nouvelle version avec une fonction dérivée de la macro (j'avais pas vu que Dezall voulait une formule).

Les 2 autres solutions sont aussi intéresantes, je les engrange.

 

[Dezall]

Re : Case de couleur

merci beaucoup de toutes vos réponces, je vais essayer de les appliquées
à mon dossier.

Encore merci pour la rapidité des solutions

 

[Dezall]

Re : Case de couleur

Bonsoir,

je viens d'essayer mais cela ne marche pas, il ne me reconnais pas la formule.
J'ai excel 2003 cela viens peu etre de là.
Je joints mon fichier ou j'ai fait le test, peu être que j'ai mal compris.
Merci pour votre aide.

 

[Brigitte]

Re : Case de couleur

Bonsoir,

Dans ce fichier, je ne vois nulle part la macro de boisgontier pour compter les couleurs de fond.

Pour utiliser la fonction écrite par jacques boisgontier, encore faut il mettre le code dans un module (pas dans la feuille).

 

[Orellano]

Re : Case de couleur

Bonjour,

En fait je voudrais utiliser le même genre de formule, mais en comptant toutes les cellules étant de couleur, peu importe laquelle.

Pouvez-vous m'aider sur la variable à changer dans la macro svp?

Merci

 

[Gael]

Re : Case de couleur

Bonjour à tous, bisous Brigitte,

Orellano, pour compter toutes les cellules de couleur, tu mets en référence une cellule non colorée et tu mets un "<>" au lieu de "=" dans la macro:

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 [COLOR=red]<>[/COLOR] MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell
End Function

Pour lancer la fonction:

=ColorCountIf(E2:N2;E2) et "E2" étant une cellule non colorée.

@+

Gael