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,

 

[mcj1997]

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

parfait impeccable, merci

 

[mcj1997]

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

J'ai un soucis, dans mon classeur, lorsque je passe d'une feuille à une autre, en effet si je suis sur la feuille 1, je fais F9 pour effectuer le calcul, si je change de feuille, lorsque je reviens en feuille 1 il faut refaire F9 car la cellule est à 0.

 

[PascalXLD]

Re : Calcul des cases en rouge

Re

Tiens c'est bizarre cela en principe une fois la fonction entrée la valeur reste

 

[mcj1997]

Re : Calcul des cases en rouge

Re

Tiens c'est bizarre cela en principe une fois la fonction entrée la valeur reste

OUI, c'est bizarre et j'ai constaté cela en passant de la feuille 1 à la feuille 2 sur laquelle je fais F9 pour calculer et cela a à pour effet de remettre à zéro la feuille 1.

 

[PascalXLD]

Re : Calcul des cases en rouge

re

tu pourrais m'envoyer le fichier stp (sans données confidentielles)

 

[mcj1997]

Re : Calcul des cases en rouge

re

tu pourrais m'envoyer le fichier stp (sans données confidentielles)

lorsque j'essaie d'envoyer une pièce jointe j'ai un message d'erreur "unable to load btrez.dll-french"