Somme qu'une colonne en fonction couleur et texte

Bonjour a tous

mon soucis du jour, je dois calculer une quantité en fonction de la couleur d 'une case avec en plus une condition sur de texte sur une autre.

j 'avoue je sui perdu

merci de votre aide

Bonjour,

Une proposition avec une formule personnalisée.

Cdlt.

Public Function fnSUM(rng As Range, cell As Range) As Double
Dim r As Range
fnSUM = 0
    For Each r In rng
        Select Case r.Value
            Case "pfb", "atf":
            Case Else:
                If r.Offset(, 3).Interior.Color = cell.Interior.Color Then
                    fnSUM = fnSUM + r.Offset(, 1).Value
                End If
        End Select
    Next r
End Function

ben ma fois ,il ne me reste plus qu'a te dire un grand merci

Re,

je corrige un oubli dans la fonction personnalisée (utilisée dans une feuille de calcul).

Désolé

Cdlt.

Public Function fnSUM(rng As Range, cell As Range) As Double
Dim r As Range
Application.Volatile
fnSUM = 0
    For Each r In rng
        Select Case r.Value
            Case "pfb", "atf":
            Case Else:
                If r.Offset(, 3).Interior.Color = cell.Interior.Color Then
                    fnSUM = fnSUM + r.Offset(, 1).Value
                End If
        End Select
    Next r
End Function

merci merci merci

tu saurais me dire comment actualiser le calcul si les couleurs changent ??