bonsoir a tous
voici mon tableau que voudrais compter les cellules (f10:f151) ayant les même couleurs
et reporter chaque nombre de ces cellules dans les cases correspondantes a gauche .
Merci .
Je joint fichier
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim c As Range
For Each c In Plage.Cells
If c.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next c
End Function
La solution que propose laetitia90 fonctionne parfaitement (comme à chaque fois d'ailleurs) ... j'aurais, pour ma part, proposé la même fonction avec deux Range en arguments (ce qui dispenserait de connaître le ColorIndex et permettrait la recopie de la fonction)
Mais la raison de mon intervention est beaucoup plus prosaïque, j'ai avant tout besoin d'une petite explication sur ce que signifie le "&$K10", après la fonction (j'ai l'impression de passer à côté d'une évidence, mais ... laquelle?)
re, bonjour Modeste
effectivement on peut sans passer!! sans pb... a moins de recuperer la valeur d'une autre cell..
j'avais pas trop teste puis entre nous cet un code que j'avais recupere je sais plus ou??
TROP NULLE en formule il faudrait que mis mette un jour!!!
ta solution est bien plus "souple" en esperant que l'ami rafii repasse par la pour te demander conseil
a+ leti