Couleur de cellule

Bonjour,
Si la couleur du fond est le résultat d'une mise en forme
conditionnelle, alors il faut compter les cellules en fonction de la ou
des valeurs de la MEFC..
sinon il faudra utiliser les fonctions suivantes (code ce dessous), en
sachant qu'un changement de couleur n'entrainera pas un changement du
resultat de la fonction ( il faudra faire F9 pour recalculer)
Ces fonctions sont présentes dans Exoutils.
Dans Exoutils l'option Information cellule, menu cellules permet de
touver le code couleur du fond d'une cellule
http://nossphil.perso.cegetel.net/exoutils.html

'///////////////////////////////
' Somme en fct° d'une couleur de cellule
'\\\\\\\\\\\\\\\\\

Function SommeSiCouleur(ByVal Maplage As Object, CodeCouleur As
Integer, Fond_texte) As Double
Application.Volatile
SommeSiCouleur = 0
For Each xc In Maplage
Select Case Fond_texte
Case 1
If xc.Interior.ColorIndex = CodeCouleur Then SommeSiCouleur =
SommeSiCouleur + xc.Value
Case 2
If xc.Font.ColorIndex = CodeCouleur Then SommeSiCouleur =
SommeSiCouleur + xc.Value
End Select
Next xc


End Function

'///////////////////////////////
' Nbre de valeur en fct° d'une couleur de cellule
'\\\\\\\\\\\\\\\\\
Public Function NbSiCouleur(ByVal Maplage As Object, CodeCouleur As
Integer, Fond_texte) As Integer
Application.Volatile
NbSiCouleur = 0
For Each xc In Maplage
Select Case Fond_texte
Case 1
If xc.Interior.ColorIndex = CodeCouleur Then NbSiCouleur = NbSiCouleur
+ 1
Case 2
If xc.Font.ColorIndex = CodeCouleur Then NbSiCouleur = NbSiCouleur + 1
End Select
Next xc
End Function

Bonjour Olitoto,

Il y a un fichier intéressant sur le sujet qui a été créé par Patrick Bastard.

Tu peux le télécharger là : http://cjoint.com/?ljqlXSgmZe


Salutations!



"olitoto" <toto@toto.com> a écrit dans le message de news: OiVexzT5FHA.2192@TK2MSFTNGP14.phx.gbl...
Bonjour à tous,

Y a til une fonction qui permet de compter les celluels en fonction de
leur couleur de fond ?

Exemple : compter les cellules dont le fond est bleu .

Merci