Somme en fonction de la couleur de cellule

13GIBE59

XLDnaute Accro

• 13 Septembre 2010

• #2

Re : Somme en fonction de la couleur de cellule

Bonjour alutili

Pas sûr d'avoir tout compris.
Dans ton fichier, dans les cellules B43 à B46, à quoi correspondent les valeurs 11, 6, 0 et 0 ?

A te lire.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Septembre 2010

• #3

Re : Somme en fonction de la couleur de cellule

Bonjour le fil, bonjour le forum,

Idem Jean-Bernard, j'ai pas compris. De plus je ne connais pas une Formule qui fasse ça mais si une macro peut convenir je te ferai une proposition quand tu nous auras expliqué tes sommes mystérieuses...

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Septembre 2010

• #4

Re : Somme en fonction de la couleur de cellule

En vba , la fonction somme des valeurs contenues dans les cellule rouges :

Code:

[SIZE=3][FONT=Times New Roman]Function SommeRouge(Plage As Range)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]For Each cell In Plage[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]If cell.Interior.ColorIndex = 3 Then vSomme = vSomme + cell.Value[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Next[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]SommeRouge = vSomme[/FONT][/SIZE]
 
[SIZE=3][FONT=Times New Roman]End Function[/FONT][/SIZE]

Les codes couleurs figurent dans le fichier joint.

 

Pièces jointes

• Couleurs Excel.xls

  30.5 KB · Affichages: 322
• Couleurs Excel.xls

  30.5 KB · Affichages: 334
• Couleurs Excel.xls

  30.5 KB · Affichages: 338

Vote positif 0 Vote négatif

A

alutili

XLDnaute Nouveau

• 13 Septembre 2010

• #5

Re : Somme en fonction de la couleur de cellule

oups,
désolé si je me suis mal fait comprendre ...
en fait les somme 11,6, 0... indiquent le nombre de cellules verte (si je prend la couleur verte, c'est le chiffre 11) sur une même colonne
Alutili

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 13 Septembre 2010

• #6

Re : Somme en fonction de la couleur de cellule

Bonjour à tous
Une proposition:

Code:

[COLOR=blue]Public Function[/COLOR] NbrCouleurs(Plage [COLOR=blue]As[/COLOR] Range, Coul [COLOR=blue]As[/COLOR] Range)
[COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] Plage
    [COLOR=blue]If[/COLOR] c.Interior.ColorIndex = Coul.Interior.ColorIndex [COLOR=blue]Then[/COLOR] Var = Var + 1
[COLOR=blue]Next[/COLOR]
NbrCouleurs = Var
[COLOR=blue]End Function[/COLOR]

Ceci ne fonctionnera pas si les cellules sont colorées par mise en forme conditionnelle.
Cordialement

 

Pièces jointes

• Simulation annualisation excel(2).xls

  41.5 KB · Affichages: 263

Vote positif 0 Vote négatif

A

alutili

XLDnaute Nouveau

• 15 Septembre 2010

• #7

Re : Somme en fonction de la couleur de cellule

Merci Efgé,
un peu novice en la matière en terme de Macro
comment faire pour copier la macro que tu m'as envoyé dans mon fichier qui est plus détaillé ?
merci
Alutili

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 15 Septembre 2010

• #8

Re : Somme en fonction de la couleur de cellule

Bonjour alutili, le fil,
Tu ouvre ton classeur puis Alt+F11. Cela ouvre l'éditeur VBA.
Dans la fenêtre à Gauche Click droit sur le nom de ton fichier / Insertion / Module.
Tu bouble click sur le module que tu viens de créer et tu colle la macro dans la feuille blanche à Droite:

Cordialement

 

Pièces jointes

• Sans-titre-1.jpg

  11.4 KB · Affichages: 332
• Sans-titre-1.jpg

  11.4 KB · Affichages: 312

Vote positif 0 Vote négatif

A

alutili

XLDnaute Nouveau

• 15 Septembre 2010

• #9

Re : Somme en fonction de la couleur de cellule

merci beaucoup Efgé !!!

 

Vote positif 0 Vote négatif