Emeline,
Oui pardon, en effet j'ai oublié de préciser qu'il fallait enlever toute cellule contenant du texte dans la somme à sommer (dans la colonne total j'ai effacé tous les - pour que ça fonctionne)
La fonction CouleurFond je l'ai obtenue sur un site comme celui ci, elle a été écrite par un autre : pour la voir : afficher les modules avec le menu développeur :
Function CouleurFond(x As Range)
'par mapomme, matricielle
Application.Volatile
Dim i, j
If x.Count = 1 Then
CouleurFond = x.Interior.ColorIndex
Else
ReDim t(1 To x.Rows.Count, 1 To x.Columns.Count)
For i = 1 To x.Rows.Count
For j = 1 To x.Columns.Count
t(i, j) = x(i, j).Interior.ColorIndex
Next j
Next i
CouleurFond = t
End If
End Function
pour savoir que la couleur verte que vous utilisez est le 43 j'ai entré dans une cellule : =couleurfond(M24)
amusez-vous à le faire en N16 et recopiez vers le bas
la formule complète :
=SOMMEPROD((CouleurFond(M$2:M$32)=43)*M$2:M$32)
vérifie pour la plage M2:M32 si la couleur de fond est le vert N°43 et si oui fait la somme de la plage M2:M32 (le oui =1, le non =0 donc en multipliant la plage par les oui non de la condition on obtent le total avec sommeprod
j'espère que c'est clair ??