Fonction compte couleur dynamique

[Duckrazou]

Bonjour a tous.

Je m'interesse depuis peu a la mise en place de macro sur excel et doit bien reconnaitre que je n'y sui pas vraiment à l'aise ....

Je suis en stage dans une petite entreprise, qui utilise Excel a fond dans tous ses services, et me confronte a un probléme :

Je travail sur une feuille dans laquelle je compte, dans une ligne ou une colonne, le nombre de cellule de couleur identique a une cellule modéle par la fonction suivante :

Function CptCouleur(plage As Range, couleur As Range) As Long
Dim cpt As Long, cel As Range
cpt = 0
For Each cel In plage
cpt = cpt - (cel.Interior.ColorIndex = couleur.Interior.ColorIndex)
Next cel
CptCouleur = cpt
End Function


Mais je souhaiterais que celle ci soit dynamique, c'est a dire que je n'est pas a relancer ma fonction pour que le calcul ce fasse, lorsque je change la couleur de ma cellule modéle ou que j'ajoute une cellule de couleur a ma colonne.
Est-ce possible ou est ce que je perd mon temp ?

Merci d'avance .

 

[pierrejean]

Re : Fonction compte couleur dynamique

bonjour Duckrazou

Et bienvenue sur XLD
une solution si ta feuille ne comporte pas trop de formules

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub