Somme et couleur de cellule

Thierryba · 3 Mars 2006

Bonjour

J'aimerai faire la somme des cellules selon la couleur du fond et trouver le resultat dans la cellule de mon choix ( en bas de la colonne concernée).
J'avais deja reçu quelques réponses mais je n'ai pas reussit a faire fonctionner ma feuille.
Je joint la feuille ce sera peut être plus pratique.

Merci de votre aide
Thierry

Thierry · 3 Mars 2006

Ci-joint le fichier

thierry · 3 Mars 2006

Thierry écrit:

Ci-joint le fichier

[file name=essaisommecellule.zip size=2192]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaisommecellule.zip[/file]

Thierryba · 3 Mars 2006

thierry écrit:

Thierry écrit:

Ci-joint le fichier

Cliquez pour agrandir...

[file name=essaisommecellule.zip size=2192]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaisommecellule.zip[/file]

En fait je me suis mal expliqué le nombre a l'intérieur de la cellule ne compte pas c'est simplement à partir du moment ou la cellule est de la couleur choisie qu' elle compte 1.

Merci de votre aide
Thierry

Monique · 3 Mars 2006

Bonjour,

Avec SommeProd et Nb.Si [file name=SommeCouleurThierryba.zip size=2196]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SommeCouleurThierryba.zip[/file]

Thierryba · 3 Mars 2006

Monique écrit:

Bonjour,

Avec SommeProd et Nb.Si [file name=SommeCouleurThierryba.zip size=2196]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SommeCouleurThierryba.zip[/file]

Bonjour,

Merci beaucoup c'est le top .Exactement ce que je voulais .
Un grand merci
Thierry B)

pat1545. · 4 Mars 2006

Salut,

essaie ceci dans un module VBA:

' fonction xl permettant de sommer et compter des cellules par leur couleur de fond
' -----------------------------------------------------------------------------------
Function SumByColor(InputRange As Range, ColorRange As Range) As Double
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next ' ignore cells without values
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + cl.Value
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
End Function

Patrick

Somme et couleur de cellule

Thierryba

Guest

Thierry

Guest

thierry

Guest

Pièces jointes

Thierryba

XLDnaute Nouveau

Monique

Nous a quitté

Pièces jointes

Thierryba

XLDnaute Nouveau

pat1545.

XLDnaute Accro

Discussions similaires