Somme par couleur de police avec TRI

Bonjour tout le monde!

En parcourant le forum j'ai trouvé ce module qui fonctionne très bien pour additionner les cellules dont la police est d'une certaine couleur, puis la formule =SommeSiCouleur(plage;code couleur)

J'ai copié et ajouter cela dans BVA en trouvant le code couleur de ma police (47)...

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long

Application.Volatile True

Dim wCell As Range

For Each wCell In Plage

If wCell.Font.ColorIndex = NumeroDeCouleur Then

SommeSiCouleur = SommeSiCouleur + wCell.Value

End If

Next

End Function

Cela a bien fonctionné toutefois je souhaite faire faire un tri de mes colonnes et conserver la fonction de calcul.

Or la formule ne fonctionne plus dès que l'on applique un tri.

Y aurait-il un moyen pour permettre ça ?

Ne connaissant rien au langage VBA, quelqu'un aurait-il la gentillesse de me dire si c'est possible.

Je vous remercie beaucoup par avance.

Carine

Bonjour,

et en faisant F9 après ?

eric