Bonjour à tous,

Totalement novice en macro, je tourne en rond depuis ce matin, je viens donc vous demander de l'aide.

Voilà j'ai une macro qui me permet de compter le nombre de cellules de couleur dans une colonne ciblée qui sont identiques à celle indiquée. J'aimerai que lorsqu'une modif est effectuée dans la colonne indiquée, le résultat que ramène la macro se mette automatiquement à jour.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function NbColor(ByRef Colonne As Range, Couleur As Integer) As Long
    Dim c As Range
    Dim nb As Long
    nb = 0
    For Each c In Colonne
        If c.Interior.ColorIndex = Couleur Then
            nb = nb + 1
        End If
    Next c
    NbColor = nb
End Function
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Function NbColorSameAs(ByRef Colonne As Range, ByRef Cellule As Range) As Long
    NbColorSameAs = NbColor(Colonne, Cellule.Interior.ColorIndex)
End Function
Merci d'avance de bien vouloir m'aider!