Bonjour,
Un exemple par VBA, surement simplifiable par fonction personnalisée mais je ne les maîtrise pas ... :
Sub CALCUL()
Dim RNG As Range
Dim CELL As Range
Dim TOTAL%
Set RNG = ActiveSheet.Range("C5:V70") 'Plage à regarder
For Each CELL In RNG
If CELL.Interior.Color = 65535 Then '65535 = couleur jaune
TOTAL = TOTAL + CELL.Value 'TOTAL de la somme des cellules en jaune
End If
Next CELL
[I1] = TOTAL 'Inscrit le total en I1
End Sub
Cdlt,
Edit : Tu as déjà un sujet similaire sur ce même site : https://www.excel-pratique.com/fr/fonctions-complementaires/somme-si-couleur
Edit2 :
Avec une fonction personnalisée (en fait pas si complexe que ça) :
Function CALCUL(PLGE As Range)
Dim CELL As Range
Dim PLG As Range
Dim TOTAL%
Application.Volatile
Set PLG = PLGE
For Each CELL In PLG
If CELL.Interior.Color = 65535 Then
TOTAL = TOTAL + CELL.Value
End If
Next CELL
CALCUL = TOTAL
End Function
Ensuite il vous suffit d'utiliser la formule =CALCUL(votre plage) là où vous souhaitez le résultat.