sommeparcouleurs

[FACITFR]

Bonsoir,

Je cherche à obtenir le nombre de cellules de couleurs rouge (dans la cellule intitulée PANIERS).
J'ai incorporé une macro avec formule qui me donne seulement la somme des valeurs des cellules rouges.
Pouvez-vous trouver une solution à mon pb ?

Merci d'avance.

 

[Chris401]

Re : sommeparcouleurs

Bonsoir

Le 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 :

=NbCoul(B6:AC6;3)

Cordialement
Chris

 

[FACITFR]

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

 

[R@chid]

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

 

[job75]

Re : sommeparcouleurs

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

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

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) :

=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 :

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

A+

 

[job75]

Re : sommeparcouleurs

Re,

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

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

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

Fichier (2).

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

A+

 

[job75]

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 :

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

Fichier (3).

A+

 

[FACITFR]

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