alors le truc c'est que j'essai de compter les cellules de couleur
alors j'ai fait un truc dans ce genre
Function SommeCouleur(plage As Range, CelCouleur As Range) As Long
Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex
For Each Cell In plage
If Cell.Interior.ColorIndex = Couleur Then SommeCouleur = SommeCouleur + 1
Next
End Function
Ensuite j'ai mis cette opération dans la cellule =SommeCouleur(A:A;E2)
mais comme je l'ai expliqué au dessus je suis obligé de faire une manip pour que le calcul soit automatique.
Message édité par spbreizh1 le 22-10-2006 à 16:17:23