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

Etoto

XLDnaute Barbatruc

• 13 Août 2021

• #2

JBARBE à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 13 Août 2021

• #3

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

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

• 13 Août 2021

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2021

• #5

Bonjour JBARBE, Etoto, le forum,

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

VB:

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+

 

Pièces jointes

• Classeur(1).xlsm

  18.4 KB · Affichages: 4

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 14 Août 2021

• #6

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 !

 

Pièces jointes

• Classeur1.xlsm

  17 KB · Affichages: 5

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 14 Août 2021

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2021

• #8

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

VB:

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

 

Pièces jointes

• Classeur(2).xlsm

  19.4 KB · Affichages: 15

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 14 Août 2021

• #9

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

 

Vote positif 0 Vote négatif