Mise en forme conditionnelle et VBA


#1

Bonjour,

Je souhaite faire un total en fonction d’une mise en forme conditionnelle. Je m’explique:

J’ai une colonne dans laquelle je calcul les somme économisées. Je décide de trier via une mise en forme conditionnelle en surlignant toute les sommes >0.

J’ai récupéré un module VBA faisant la somme sur une plage donnée des cellules d’une couleur précise.

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function

Le problème c’est que la mise en forme conditionnelle n’est pas compatible avec le VBA…

Quelqu’un aurait il une méthode permettant de faire la somme selon (>0). Une formule peut être?

Merci


#2

Bonsoir @Markus,

Peux-tu nous joindre un fichier ?

@+
Cordialement.