XL pour MAC Somme sous condition de couleur d'une cellule

[fayer007]

Bonsoir à tous,

je souhaiterais solliciter vos talents d'exceleur. En effet, je veux faire la somme d'une ligne avec une trentaine de case. Simple de prime abord mais pour me simplifier la tache, des cases seront en rouge et j'aimerai que la somme de ces cases rouges soient additionnées à part.

Avez vous une idée?

Merci de votre retour!

 

[soan]

@fayer007

à tout hasard, le fichier ci-dessous t'aidera peut-être ?

attention : j'ai modifié ma fonction personnalisée
SumRedCells() ; maintenant, elle est ainsi :

Function SumRedCells() As Long
  Dim T&, col%, lig&: Application.Volatile
  lig = Application.Caller.Row
  For col = 2 To 32
    With Cells(lig, col)
      If .Interior.ColorIndex = 3 Then T = T + .Value
    End With
  Next col
  SumRedCells = T
End Function

j'ai rien d'autre à proposer ; j'espère qu'un autre intervenant
pourra t'aider davantage ; bonne chance !

soan