XL 2016 sommesicouleur

[halecs93]

Bonjour,

J'ai intégré une formule permettant de faire la somme de cellules en fonction de leur couleur. Cette formule, dans le module 1, est :

Option Explicit

Function SOMMESICOULEUR(cellules As Range)
Application.Volatile

Dim total As Double
Dim cellule As Range

For Each cellule In cellules
If cellule.Interior.Color = Application.Caller.Interior.Color Then
total = total + cellule
End If
Next


SOMMESICOULEUR = total

End Function

Or, lorsque je souhaite l'éxécuter (en B28 pour l'exemple) elle me renvoie la valeur zéro.

Une idée ?

Un grand merci par avance

 

[vgendron]

Hello

je peux t'aider juste pour l'origine du pb..
le problème vient du fait que les cellules sont colorée par MFC
ce qui est différent d'une cellule colorée "manuellement"

pour la solution...???

 

[JHA]

Bonjour à tous,

Peut-être sans fonction personnalisée

JHA

 

[Bernard_XLD]

Bonjour Halecs93, vgendron, JHA, le forum

J'avais fait une solution avec événementielle et fonction personnalisée pour Riton00 dans ce fil.
elle permet de compter les couleurs de MFC sur une plage passée en paramètre dans la fonction personnalisée. fonctionne en ligne, colonne ou plage selon la couleur de la cellule contenant la fonction

https://excel-downloads.com/threads/compter-les-cellules-mfc.20065332/#post-20493552

Cordialement, @+

 

[halecs93]

Bonjour à tous,

Peut-être sans fonction personnalisée

JHA

Merci pour cette première solution...efficace

 

[halecs93]

Bonjour Halecs93, vgendron, JHA, le forum

J'avais fait une solution avec événementielle et fonction personnalisée pour Riton00 dans ce fil.
elle permet de compter les couleurs de MFC sur une plage passée en paramètre dans la fonction personnalisée. fonctionne en ligne, colonne ou plage selon la couleur de la cellule contenant la fonction

https://excel-downloads.com/threads/compter-les-cellules-mfc.20065332/#post-20493552

Cordialement, @+

Merci beaucoup. Peut-être un peu complexe, en ce qui me concerne, à mettre en oeuvre. Mais, merci encore

 

[Bernard_XLD]

Re,

@halecs93 , si la proposition de JHA vous convient, notez la en solution de la discussion avec la case à cocher à droite du post concerné.

Cordialement, @+