somme.si

[pattie1505]

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]

Re : somme.si

Bonjour mexcellent, le forum,

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


JHA

 

[ROGER2327]

Re : somme.si

Bonjour à tous

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

[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