Faites ceci :
- ALT + F11 sur votre clavier. Cela vous amène dans l'éditeur VBA
- Menu -> Insertion --> choisir l'option "Module"
- dans la fenêtre, collez le code ci-dessous
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur As Long) As Long
Application.Volatile True
Dim Cel As Range
For Each Cel In Plage
If Cel.Interior.Color = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + Cel.Value
End If
Next Cel
End Function
- dans votre feuille Synthèse, placez vous en F6 et collez cette formule --> =sommesicouleur('listing complet'!K2:K41;15917529)
- il vous reste à compléter les formules en F10, F14, etc en changeant la valeur 15917529 par la référence couleur .
Dès que vous changerez une valeur dans la feuille listing la formule calculera automatiquement la somme en feuille synthèse
Rem : attention que votre ligne 23 en grisé n'est pas reprise dans la feuille synthèse
Cordialement