A propos des couleurs de fond

Bonjour
Personnellement je suis d'avis que ce genre de comptabilisation n'est pas
"inné" dans Excel et donc je te suggèrerai plutôt de trouver une autre
méthode.
Si le fond est orange il doit y avoir une raison (une valeur dans la cellule
ou dans une autre cellule, etc...)
Voir peut-être du côté de la mise en forme conditionnelle.
Par contre s'il s'agit uniquemet de colorer "comme ça" les cellules, là
c'est une autre histoire ;-)

Mais ce n'est qu'un simple et humble avis personnel.
Cordialement
Pascal


"ppinede" <ppinede@wanadoo.fr> a écrit dans le message de
news:41526c7b$0$7169$8fcfb975@news.wanadoo.fr...

Quelqu'un peut-il m'indiquer s'il est possible de comptabiliser dans une
feuille de calcul, les cellules comportant la couleur de fond orange par
exemple.
Si oui, comment ?
Certains m'ont proposé d'exécuter une macro, mais en fait, je voudrais que
les cellules en question soient comptabilisées dans une autre cellule au
fur

et à mesure que j'affecte la couleur de fond orange aux cellules de mon
tableau.
Merci

Salut,

alors je reviens à la charge !!
Tu mets ce code dans la feuille de code correspondant à la feuille dans
laquelle tu veux faire ton dénombrement (j'ai testé sur A2:E30, tu adapteras
ça à ton tableau à toi)
Dès que tu vas passer un fond en orange et que tu aurs cliqué ailleurs ça
mettre en A1 (à toi de changer ça aussi...) le nombre de cellules en orange
:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellule As Range
Dim compteur As Long

For Each cellule In Range("A2:E30")
If cellule.Interior.ColorIndex = 44 Then
compteur = compteur + 1
End If
Next

[A1] = compteur

End Sub

Ca marche ?

CAP2

Bonsour ®,
une autre approche avec une fonction perso
mais il faut savoir que le changement de couleur d'une
cellule ne provoque pas de recalcul
il faudra donc changer la valeur d'une cellule quelconque
ou bien appuyer sur F9 :

utiisation :
=CPTCOLOR(la plage; la cellule qui contient la couleur de
réference)
exemple B1=CPTCOLOR(G2:P8;A1)
A1 est en rouge
la plage "G2:P8"
le résultat en B1

Function CPTCOLOR(target As Range, reference As Range) As
Long
Application.Volatile
CPTCOLOR = 0
For Each cell In target.Cells
CPTCOLOR = CPTCOLOR - 1 * (cell.Interior.ColorIndex =
reference.Interior.ColorIndex)
Next
End Function

-----Message d'origine-----
Quelqu'un peut-il m'indiquer s'il est possible de
comptabiliser dans une

feuille de calcul, les cellules comportant la couleur de
fond orange par

exemple.
Si oui, comment ?
Certains m'ont proposé d'exécuter une macro, mais en
fait, je voudrais que

les cellules en question soient comptabilisées dans une
autre cellule au fur

et à mesure que j'affecte la couleur de fond orange aux
cellules de mon

tableau.
Merci


.