Autres Formule pour additionner des cellules en vert avec Excel 2007 (RESOLU)

[JBARBE]

Bonjour à tous,
Je voudrais une formule qui m'additionne les cellules en vert ( résultat en C2)
Merci à l'avance et Bonne journée !

 

[Etoto]

Bonjour à tous,
Je voudrais une formule qui m'additionne les cellules en vert ( résultat en C2)
Merci à l'avance et Bonne journée !

Bonjour,

Dans le pack de fonctions XLP, il existe la fonction SOMME.SI.COULEUR.

Voilà

Pack de 92 nouvelles fonctions Excel et VBA

J'ai créé un pack de nouvelles fonctions pour Excel (gratuit) sous forme de macro complémentaire (qu'il suffit donc de copier un fichier dans un répertoire d...

forum.excel-pratique.com

Par contre je viens de vendre un article concurrent à XLD 🤣 😱

 

[JBARBE]

Re,
ça marche !
Merci beaucoup Etoto !
Bonne journée !

 

[Etoto]

De rien, si tu as des questions n'hésite pas. Bon après-midi

 

[job75]

Bonjour JBARBE, Etoto, le forum,

Je pense que ce genre de fonction VBA a été utilisé moult fois sur le forum :

Function SommeSiCouleur#(r As Range)
Application.Volatile
Dim coul&, x$
coul = Application.Caller.Interior.Color
For Each r In Intersect(r, r.Parent.UsedRange)
    x = CStr(r)
    If IsNumeric(x) Then If r.Interior.Color = coul Then SommeSiCouleur = SommeSiCouleur + CDbl(x)
Next
End Function

La modification des couleurs ne créant pas d'évènement il faut appuyer sur F9 pour le recalcul.

A+

 

[JBARBE]

Bonjour à tous, job,
Je voudrais associer une année pour cette formule que j'utilise maintenant :
=SOMME_SI_COULEUR(C4:C21;NO_COULEUR(C6))
Merci à l'avance et bonne journée !

 

[JBARBE]

Re,
A défaut de cette formule, si l'on peut faire une macro différente je suis preneur !
Bonne journée !

 

[job75]

Il suffit d'ajouter un 2ème argument à la fonction :

Function SommeSiCouleur#(r As Range, An)
Application.Volatile
Dim coul&, x$
coul = Application.Caller.Interior.Color
For Each r In Intersect(r, r.Parent.UsedRange)
    x = CStr(r)
    If IsNumeric(x) Then If UCase(An) = "TOUTES" Or Year(r(1, 0)) = An Then _
        If r.Interior.Color = coul Then SommeSiCouleur = SommeSiCouleur + CDbl(x)
Next
End Function

 

[JBARBE]

Re,
C'est OK !
Merci Job !
Bonne journée !