Compter cellule de meme couleur

[rafii]

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

 

[laetitia90]

Re : Compter cellule de meme couleur

bonjour rafii

une fonction dans un module

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

puis en L10

=couleurs($F$10:$F$151;35)&$K10

puis en L11

=couleurs($F$10:$F$151;37)&$K11

puis en L12

=couleurs($F$10:$F$151;40)&$K12

 

[rafii]

Re : Compter cellule de meme couleur

Bonjour ,
Cher ami laetitia90 peut tu me mettre ces code dans mon fichier directement .
Un Grand MERCI à toi.

 

[laetitia90]

Re : Compter cellule de meme couleur

re, le fichier joint

 

[Modeste]

Re : Compter cellule de meme couleur

Bonjour rafii, laetitia90,

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?)

 

[laetitia90]

Re : Compter cellule de meme couleur

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