VBA Excel - Nombre de cellules selon leur couleur MYTA

laurence - 31 août 2021 à 17:40
Le Pingou
Messages postés
11105
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
9 août 2022
- 31 août 2021 à 18:18
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

1 réponse

Le Pingou
Messages postés
11105
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
9 août 2022
1 299
31 août 2021 à 18:18
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.CalculateFull
End Sub

0