sommeparcouleurs

Chris401

XLDnaute Accro

• 16 Février 2014

• #2

Re : sommeparcouleurs

Bonsoir

Le code :

Code:

Function NbCoul(Zone As Range, Couleur As String)
Application.Volatile True
Dim c As Range
For Each c In Zone
If c.Interior.ColorIndex = Couleur Then NbCoul = NbCoul + 1
Next
End Function

En AE6 :

Code:

=NbCoul(B6:AC6;3)

Cordialement
Chris

 

Vote positif 0 Vote négatif

F

FACITFR

XLDnaute Junior

• 16 Février 2014

• #3

Re : sommeparcouleurs

Merci Chris401,

J'ai toutefois un petit problème dans l'application du code et de la formule : Si je me sers de la clé de reproduction, cela fonctionne sur les cases voisines mais pas si je saute une case (un jour ou un prénom), le dimanche par exemple.
Dois-je modifier le code ?

Cordialement

 

Pièces jointes

• SommeparcouleursTest.xls

  43 KB · Affichages: 41

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 17 Février 2014

• #4

Re : sommeparcouleurs

Bonsoir @ tous,
Ta demande n'est pas claire,
Puisque la couler rouge est issue d'une MFC je voie qu'une formule fera l'affaire..
Mais pourquoi la MFC n'est pas la même sur toute la plage B6:AC9 ??

@ te relire

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2014

• #5

Re : sommeparcouleurs

Bonjour FACITFR, Chris401, R@chid, le forum,

R@chid à dit:

Mais pourquoi la MFC n'est pas la même sur toute la plage B6:AC9 ??

Cliquez pour agrandir...

Oui, pas très cohérent tout ça.

Car en plus pour les cellules rouges la couleur de fond des cellules est rouge...

Voyez le fichier joint avec une seule condition pour la MFC (en B6) :

Code:

=OU(B6=9,13;B6=8,54;B6=8,53)

Seule la cellule P7 est colorée en rouge par la MFC.

Pour compter les cellules colorées :

Code:

=SOMMEPROD((B6:AC9=9,13)+(B6:AC9=8,54)+(B6:AC9=8,53))

A+

 

Pièces jointes

• SommeparcouleursTest(1).xls

  52 KB · Affichages: 36

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2014

• #6

Re : sommeparcouleurs

Re,

On peut mettre les valeurs cherchées dans les cellules J11:O11, les formules deviennent :

Code:

=NB.SI($J$11:$O$11;B6)

Code:

=SOMMEPROD(NB.SI(J11:O11;B6:AC9))

Fichier (2).

PS : j'ai revu aussi la formule du nom cnLISTE1...

A+

 

Pièces jointes

• SommeparcouleursTest(2).xls

  52.5 KB · Affichages: 36

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Février 2014

• #7

Re : sommeparcouleurs

Re,

S'il y a 2 valeurs identiques en J11:O11, il faut éviter qu'elles soient comptées 2 fois.

Donc entrer plutôt en J12 :

Code:

=SOMMEPROD(SIGNE(NB.SI(J11:O11;B6:AC9)))

Fichier (3).

A+

 

Pièces jointes

• SommeparcouleursTest(3).xls

  52.5 KB · Affichages: 27

Vote positif 0 Vote négatif

F

FACITFR

XLDnaute Junior

• 19 Février 2014

• #8

Re : sommeparcouleurs

Merci à tous,

Le fichier fonctionne parfaitement à présent !

Veuillez excuser mon retard pour vous remercier, j'ai eu un imprévu professionnel.

Cordialement

 

Vote positif 0 Vote négatif