Discussion :

[Ek-Inox]

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!

[parmi]

Bonjour,

De quelle façon appelle-tu cette macro ?
Et comment est indiquée la colonne ?

[Ek-Inox]

je l'appelle dans une cellule avec la fonction suivante : =NbColorSameAs($H$11:$H$65000;D3)
C'est là que j'indique la colonne dans laquelle la fonction s'applique.