VBA Excel - Nombre de cellules selon leur couleur MYTA Fermé

Question

Bonjour, suite explication simple donnée par MYTA, que faut-il ajouter au module VBA pour que le calcul se fasse automatiquement lorsque l'on change une cellule de couleur svp? Sa solution fonctionne mais il faut que je re-saisisse à chaque fois la plage si je change de couleur ensuite
Merci pour votre aide

Function NbreCellulesCouleur(Plage As Range, Couleur As Byte) As Long
'Compter le nombre de cellules d'une couleur donnée dans une plage donnée
'Plage: plage de cellules à inspecter
'Couleur: valeur de la couleur cherchée

Application.Volatile

Dim Cellule As Range

For Each Cellule In Plage
    If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then
        NbreCellulesCouleur = NbreCellulesCouleur + 1
    End If
Next Cellule

End Function

Le Pingou · Answer

Bonjour,
Au passage essayez avec le code ci dessous à mettre dans le module de la feuille.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Application.CalculateFullEnd Sub

VBA Excel - Nombre de cellules selon leur couleur MYTA

1 réponse

Discussions similaires