[XL-2003] Fonction max selon couleur cellules [Résolu]

[BenDefi]

Bonjour,

Je souhaiterais créé une formule pour calculer sur une plage donnée la valeur max uniquement sur les cellules d'une couleur définie manuellement.

Pour faire la somme des cellules rouges (par exemple) sur une plage donnée, je sais comment faire, mais pour faire le min ou max de ces mêmes cellules sur la même plage......

Merci d'avance !

[bbil]

Et comment fait-tu pour la somme ?

[darkvadave]

Bonjour,
en bricolant une fonction de comptage de couleurs, ça devrait fonctionner :

Code :

1
2
3
4
5
6
7
8
Function ColorCountInt(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorCountInt = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul and cell.value> ColorCounInt Then ColorCountInt = ColorCountInt + cell.value
Next cell
End Function

Re,
navré, j'ai répondu trop vite : ici, la valeur de toute cellule (rouge par ex) qui aura une valeur supérieur aux cellules comptées précédentes s'ajoutera, dons tu n'auras pas la valeur maxi prise par une cellule rouge : plutôt mettre la formule :

Code :

If cell.Interior.ColorIndex = MaCoul and cell.value>ColorCountInt Then ColorCountInt = cell.value

Là, cell.value remplacera la valeur prise par colorcountint à chaque fois que la cellule testée aura une valeur supérieur.

[BenDefi]

Merci darkvadave, ta réponse était ma solution de départ, mais je la trouvais un peu lourde. Je pensais qu'un truc plus simple qu'une boucle existait.

Donc je pars sur cette soluce.

Thanks