XL 2016 sommesicouleur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

halecs93

XLDnaute Impliqué
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
 

Pièces jointes

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, @+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
783
Réponses
3
Affichages
518
Réponses
12
Affichages
300
Réponses
12
Affichages
419
Retour