Calcul des cases en rouge

[mcj1997]

Bonjour,


A B C D E F

1
2
3
4

Comment faire pour calculer en F1 la somme des cases en rouge parmi A1, D1
en F2 la somme des cases en rouge parmi A2, D2, en F3 la somme des cases en rouge parmi A3, D3 en ignorant ainsi les cases en rouge mais en dehors des cellules citées.

Merci d'avance ,



merci d'avance,

 

[PascalXLD]

Re : Calcul des cases en rouge

Bonsoir

tes cases tu les rougis toi même ou avec une MFC ??

 

[mcj1997]

Re : Calcul des cases en rouge

Bonsoir

tes cases tu les rougis toi même ou avec une MFC ??[/QUOTE

C'EST MOI QUI DECIDE DE METTRE EN ROUGE

 

[PascalXLD]

Re : Calcul des cases en rouge

Bonjour

une petite fonction VBA fera l'affaire

Function ColorCountIf(SearchArea As Object, BgColor As Range)
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
    If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + Cell.value
Next cell

End Function

 

[mcj1997]

Re : Calcul des cases en rouge

Bonjour

une petite fonction VBA fera l'affaire

Function ColorCountIf(SearchArea As Object, BgColor As Range)
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
    If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + Cell.value
Next cell

End Function

Comment faire pour que le calcul ne fasse que dans des cellules précises par exemple que dans A1 et D1 c'est à dire que si b1 est en rouge C1 aussi cela ne compte pas.

 

[PascalXLD]

Re : Calcul des cases en rouge

RE

un exemple en pièce jointe

 

[mcj1997]

Re : Calcul des cases en rouge

re

un exemple en pièce jointe

merci de votre aide c'est presque cela mais je ne veux pas la somme des cases mais uniquement le nombre de case en rouge, si trois cases en rouge donc j'ai trois en resultat.

 

[PascalXLD]

Re : Calcul des cases en rouge

RE

pour moi la somme c'est la somme et le nombre le nombre

modifies

If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + Cell.value

par

If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1

 

[mcj1997]

Re : Calcul des cases en rouge

RE

pour moi la somme c'est la somme et le nombre le nombre

modifies

If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + Cell.value

par

If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1

Bonjour, cela ne fonctionne pas, la requête servant à compter les cases en rouge se fait même sur les cellules non selectionnées

 

[PascalXLD]

Re : Calcul des cases en rouge

RE

bah il faut que tu détermine sla plage à compter

tu as regardé mon exemple ? avec ma fonction ecrite

 

[mcj1997]

Re : Calcul des cases en rouge

RE

bah il faut que tu détermine sla plage à compter

tu as regardé mon exemple ? avec ma fonction ecrite

oui, j'ai regardé, dans la formule ci-dessous, que faut-il faut mettre pour que le comptage ne se fasse que dans les cellules A3 et D3 donc sans compter B3 et C3 ?

=ColorCountIf(A33;F3)

 

[PascalXLD]

Re : Calcul des cases en rouge

RE

essaies

=ColorCountIf((A3;D3);F3)

 

[mcj1997]

Re : Calcul des cases en rouge

RE

essaies

=ColorCountIf((A3;D3);F3)

C'est ok ça marche,

merci

 

[mcj1997]

Re : Calcul des cases en rouge

C'est ok ça marche,

merci

Une précision, pourquoi cela oblige pour un bon fonctionnement que la case F3soit en rouge, y a-t-il une parade à cela ?

 

[PascalXLD]

Re : Calcul des cases en rouge

RE

en fait tu as le choix

Soit tu mets une case de la couleur et la fonction calcule les cases de la même couleur dans la plage donnée

soit tu connais le colorindex et dans ce cas là tu peux changer la fonction ainsi

Function ColorCountIf(SearchArea As Object, BgColor As Integer)
Application.Volatile True
ColorCountIf = 0
' MaCoul = BgColor.Interior.ColorIndex 'plus nécessaire
For Each cell In SearchArea
    If cell.Interior.ColorIndex = BgColor Then ColorCountIf = ColorCountIf + 1
Next cell

End Function

et dans ta fonction tu écris

=ColorCountIf((A3;D3);3)

Car 3 c'est le colorindex du rouge