Calcul des cases en rouge

pascalxld à dit:

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

Code:

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

Cliquez pour agrandir...

PascalXLD à dit:

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

Code:

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

Cliquez pour agrandir...

PascalXLD à dit:

Re

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

Cliquez pour agrandir...

PascalXLD à dit:

re

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

Cliquez pour agrandir...