Calcule la somme des chiffre en foction de la couleur

Bonjour,

Je cherche a calculer la somme des chiffre d'une colonne (ex: D2 à D30), et les coller dans une autre en fonction de la couleur d'une autre colonne (C2 à C30) par une macro ou une formule, j'ai cherche mais rien trouver sur le net ni dans les livres.

VOIR FICHIER JOINT

Hepl me!

merci

Bonjour.Bienvenue sur le Forum

Ton exemple ne dit pas ce que tu veux exactement.

Peux-tu donner un exemple précis?

Cordialement

bonjour,

dans la colonne (C) j'ai des couleurs ou par rapport au texte, je souhaite faire la somme de la colonne a côté

exemple la macro commence en C2 puis des qu'elle trouve la couleur defini ou le texte (JSP1) elle prend le chiffre d'a côté et ainsi de suite, apres elle passe a une autre couleur ou texte (JSP2) elle prend le chiffre d'a côté et ainsi de suite, par la suite en faire une somme, qui ma permet de calculer la moyenne JSP1 moyenne = JSP2 moyenne=

j'espère avoir été clair dans mes explications voici un petit bout de code que j'ai essayer:

Sub AJOUT()

Dim SOMME_ROUGE As Integer

Dim SOMME_JAUNE As Integer

Dim SOMME_VERT As Integer

Dim SOMME_BLEU As Integer

Dim i As Integer

SOMME_ROUGE = 0

SOMME_JAUNE = 0

SOMME_VERT = 0

SOMME_BLEU = 0

'Ma zone de saisie est C2:C30 et je parcours cette zone avec une boucle

For i = 2 To 30

range("C" & i).Select

If Selection.interiror.ColorIndex = 3 Then

SOMME_ROUGE = SOMME_ROUGE + ActiveCell.Value.Offset(0, 1).Select

ElseIf Selection.interiror.ColorIndex = 27 Then

SOMME_JAUNE = SOMME_JAUNE + ActiveCell.Value.Offset(0, 1).Select

ElseIf Selection.interiror.ColorIndex = 4 Then

SOMME_VERT = SOMME_VERT + ActiveCell.Value.Offset(0, 1).Select

ElseIf Selection.interiror.ColorIndex = 34 Then

SOMME_BLEU = SOMME_BLEU + ActiveCell.Value.Offset(0, 1).Select

End If

Next

'affectation des variables aux cellules contenant les résultats

range("EB5").Value = SOMME_ROUGE

range("EB3").Value = SOMME_JAUNE

range("EB4").Value = SOMME_VERT

range("EB2").Value = SOMME_BLEU

End Sub

Bonjour

"Pourquoi faire simple quand on veut faire compliqué?"

Tu focalises sur les couleurs et une Macro alors qu'un SOMME.SI ou SOMMEPROD te donne un total immédiat.

Cordialement

merci encore, ce forum est super et les personnes répondent vite. problème resolu

re désoler j'ai été plus vite que la musique, j'ai oublier de preciser que derrier il y a une macro pour affecter les couleurs (car mise en forme conditionnelle limiter a 3) et quand je tape la formule dans mon fichier il me renvoie un #NOM? que faire merci

Bonjour

J'ai utilisé une formule contenant un Nom défini, mais j'ai aussi pris la peine d'indiquer dans l'encart rouge "Voir les formules nommées"

=SOMMEPROD((Grades=J2)*(DECALER(Grades;0;1)))

Si définir un nom pour un champ dynamique n'est pas utile, tu peux remplacer le nom Grades par C2:C30 et écrire

=SOMMEPROD((C2:C30=J2)*(DECALER(C2:C30;0;1)))

Cordialement

merci mille fois, et désoler, mais il y a certaine chose dans excel que je ne maitrise pas assez bien encore.