Sous-totaux selon couleur

Pierrot93

XLDnaute Barbatruc

• 25 Août 2009

• #2

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
@+

 

Vote positif 0 Vote négatif

G

gunners

Guest

• 25 Août 2009

• #3

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

 

Pièces jointes

• Somme conditionnelle_gunners.xls

  16.5 KB · Affichages: 255

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Août 2009

• #4

Re : Sous-totaux selon couleur

Bonjour,

Voir PJ

JB

 

Pièces jointes

• Copie de Somme conditionnelle_gunners.xls

  28.5 KB · Affichages: 434

Vote positif 0 Vote négatif

G

gunners

Guest

• 25 Août 2009

• #5

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.😱

 

Vote positif 0 Vote négatif

G

gunners

Guest

• 25 Août 2009

• #6

Re : Sous-totaux selon couleur

Help please!

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Août 2009

• #7

Re : Sous-totaux selon couleur

Bonjour,

Code:

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

 

Pièces jointes

• Copie de Somme conditionnelle_gunners-1.xls

  27 KB · Affichages: 210

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 26 Août 2009

• #8

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

 

Pièces jointes

• Somme conditionnelle_gunners(1).xls

  29.5 KB · Affichages: 261

Vote positif 0 Vote négatif

G

gunners

Guest

• 26 Août 2009

• #9

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!

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Août 2009

• #10

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

 

Dernière édition: 26 Août 2009

Vote positif 0 Vote négatif

G

gunners

Guest

• 31 Août 2009

• #11

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

 

Pièces jointes

• sous-totaux géographiques.xls

  29 KB · Affichages: 153

Vote positif 0 Vote négatif