apnart
XLDnaute Occasionnel
Bonjour,
J'ai pas mal cherché sur le forum (et ailleurs), mais je n'ai pas trouvé la solution pour moi... pourtant le sujet est souvent évoqué.
J'ai fait un planning, je positionne avec des couleurs en fonction de si les gens sont en vacances, formation,... bref un code couleur qui va bien.
Je veux compter les couleurs pour compter le nombre de congés, de formations, ...
J'utilise cette fonction :
Zne est la plage de cellules où je veux compter les couleurs
CaseRef est une cellule qui contient la couleur que je veux compte (sur un légende)
ça fonctionne quand ça veut... et à priori seulement quand je fais F9
J'ajoute que cette fonction est mise dans un module.
Vos idées seront les bienvenues, car là je galère un peu.
Le but est que lorsqu'on colorie une case dans Zne, la fonction calcule automatiquement.
Merci d'avance
J'ai pas mal cherché sur le forum (et ailleurs), mais je n'ai pas trouvé la solution pour moi... pourtant le sujet est souvent évoqué.
J'ai fait un planning, je positionne avec des couleurs en fonction de si les gens sont en vacances, formation,... bref un code couleur qui va bien.
Je veux compter les couleurs pour compter le nombre de congés, de formations, ...
J'utilise cette fonction :
Code:
Function SomCouleur(Zne As Range, CaseRef As Range) As Integer
Dim CouleurInterieure As String
Application.Volatile True
SomCouleur = 0
CouleurInterieure = CaseRef.Interior.ColorIndex
For Each cell In Zne
If cell.Interior.ColorIndex = CouleurInterieure Then SomCouleur = SomCouleur + 1
Next cell
End Function
Zne est la plage de cellules où je veux compter les couleurs
CaseRef est une cellule qui contient la couleur que je veux compte (sur un légende)
ça fonctionne quand ça veut... et à priori seulement quand je fais F9
J'ajoute que cette fonction est mise dans un module.
Vos idées seront les bienvenues, car là je galère un peu.
Le but est que lorsqu'on colorie une case dans Zne, la fonction calcule automatiquement.
Merci d'avance