Sous-totaux selon couleur

[gunners]

Bonjour,

Je souhaiterais effectuer une sorte de somme selon la couleur des mes cellules:
j'ai une colonne avec des cellules de trois couleurs: rouge, orange, jaune. L'ordre des couleurs et aléatoire et varie.
Au départ, seules les cellules jaunes ont une valeur
Je souhaiterais que chaque cellule rouge soit la somme des cellules oranges situées en dessous d'elle jusqu'à la prochaine cellule rouge, et que chaque cellule orange soit la somme des cellules jaunes situées en dessous d'elle jusqu'à la prochaine cellule orange.


Merci bcp pour votre aide

 

[Pierrot93]

Re : Sous-totaux selon couleur

Bonjour Gunners,

je pense qu'un petit fichier en pièce jointe, sans données confidentielles nous aiderait à y voir plus clair dans ta demande...

bonne journée
@+

 

[gunners]

Re : Sous-totaux selon couleur

Voici donc un exemple ci-joint.
Je re-précise que mon principal problème est que l'ordre et la succession des couleurs varie.
Merci

 

[BOISGONTIER]

Re : Sous-totaux selon couleur

Bonjour,

Voir PJ

JB

 

[gunners]

Re : Sous-totaux selon couleur

Merci BOISGONTIER mais ce n'est pas tout à fait cela:
Je ne veux pas faire la somme des cellules d'une même couleur mais bien faire des sous-totaux, comme dans la seconde colonne: la cellule orange est la somme de toutes les cellules jaunes située juste en dessous d'elle; la cellule rouge est la somme des cellules orange.
Désolé si je ne suis pas très clair.😱

 

[gunners]

Re : Sous-totaux selon couleur

Help please!

 

[BOISGONTIER]

Re : Sous-totaux selon couleur

Bonjour,

Sub totaux()
  i = 38
  Do While i > 6
    tjaune = 0
    Do While Cells(i, 2).Interior.ColorIndex = 6
      tjaune = tjaune + Cells(i, 2)
      trouge = trouge + Cells(i, 2)
      i = i - 1
    Loop
    Cells(i, 2) = tjaune
    i = i - 1
    If Cells(i, 2).Interior.ColorIndex = 3 Then
       Cells(i, 2) = trouge
       trouge = 0
       i = i - 1
    End If
  Loop
End Sub

JB
http://boisgontierjacques.free.fr

 

[CISCO]

Re : Sous-totaux selon couleur

Bonjour

Une solution, sans macro, mais avec des colonnes intermédiaires (que l'on peut toujours cacher, si besoin est), et avec la fonction nommée LIRECOULEUR utilisant la fonction XL4 LIRE.CELLULE.

@ plus

 

[gunners]

Re : Sous-totaux selon couleur

Merci beaucoup à Boisgontier et Pierrot93!🙂

Je vais privilégier la solution de Boisgontier qui correspond plus à mes attentes.
Il me reste cependant un dernier petit problème: la somme n'est plus conditionnée par la couleur de la cellule mais par son style de motif (% de gris, hachurée, pointillée,...).
J'ai cherché un index de style comme il existe un index de couleur mais je n'ai rien trouvé.
Petite précision: je ne sais pas si c'est important mais je travaille sur excel 2007.
Merci pour votre aide!

 

[BOISGONTIER]

Re : Sous-totaux selon couleur

Exemple:

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/Fonction_SommeTrameFond.xls

If c.Interior.Pattern =[C1].Interior.Pattern Then

Utiliser l'enregistreur pour obtenir la syntaxe.

JB

 

[gunners]

Re : Sous-totaux selon couleur

Bonjour Boisgontier,

J'ai essayé d'adapter votre macro afin qu'elle fonctionne pour le style de motif d'une cellule, en vain.
De plus, plusieurs niveau hiérarchique se sont rajoutés, comme vous pourrez le constater dans le fichier joint (qui présente aussi les styles de motifs qui me sont imposés).
Pourriez-vous svp me donner un dernier coup de main.

Merci d'avance et merci également pour l'aide déja fournie.
Meilleures salutations