Bonjour,
je souhaite compter le nombre de cellules par type de couleur.
J'ai réussi a faire cela cependant lorsque je fusionne plusieurs cellule afin de n'en faire qu'une ma formule renvoie le nombre de cellule fusionnée.
Voici le code:
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
Function Couleur(CL As Range) As Long
Couleur = CL.Interior.ColorIndex
End Function
et la formule:
=couleurs($A$10:$GU$100;G2)
Est il possible de modifier le code vba afin d'intégrer le fait qu'il puisse y avoir plusieurs cellules fusionnées qui n'en donne qu'une quand j'inscris ma formule.
Cordialement
norip
je souhaite compter le nombre de cellules par type de couleur.
J'ai réussi a faire cela cependant lorsque je fusionne plusieurs cellule afin de n'en faire qu'une ma formule renvoie le nombre de cellule fusionnée.
Voici le code:
Function Couleurs(Plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
For Each Cel In Plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
Function Couleur(CL As Range) As Long
Couleur = CL.Interior.ColorIndex
End Function
et la formule:
=couleurs($A$10:$GU$100;G2)
Est il possible de modifier le code vba afin d'intégrer le fait qu'il puisse y avoir plusieurs cellules fusionnées qui n'en donne qu'une quand j'inscris ma formule.
Cordialement
norip