somme.si

pattie1505 · 11 Octobre 2009

Bonjour le forum,

Je souhaite additionner les valeurs des cellules d'une feuille excel qui ont la couleur identique, si possible sans macro.
Le remplissage est manuel.

merci d'avance.

mexcellent

JHA · 11 Octobre 2009

Re : somme.si

Bonjour mexcellent, le forum,

Difficile sans macro, je te propose une fonction personnalisée du forum.

JHA

ROGER2327 · 11 Octobre 2009

Re : somme.si

Bonjour à tous

Sans une fonction personnalisée, je ne sais pas.
Mais on peut essayer ça:

Code:

[COLOR="DarkSlateGray"]Function sommeCouleur(r As Range, c As Integer)
Dim ocel As Range
   Application.Volatile
   For Each ocel In r.Cells
      sommeCouleur = sommeCouleur - (ocel.Interior.ColorIndex = c) * ocel.Value2
   Next ocel
End Function[/COLOR]

=sommeCouleur(B2:B18;6) en B19 donne 13411.

ROGER2327
#1857

somme.si

pattie1505

XLDnaute Junior

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Discussions similaires

somme.si

pattie1505

XLDnaute Junior

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency