Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fonction compte couleur dynamique

Duckrazou

XLDnaute Nouveau
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 .
 

Pièces jointes

  • Compte couleur.xls
    23.5 KB · Affichages: 149
  • Compte couleur.xls
    23.5 KB · Affichages: 151
  • Compte couleur.xls
    23.5 KB · Affichages: 149

pierrejean

XLDnaute Barbatruc
Re : Fonction compte couleur dynamique

bonjour Duckrazou

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

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…