VBA Excel - Nombre de cellules selon leur couleur MYTA

Fermé

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

A voir également:

VBA Excel - Nombre de cellules selon leur couleur MYTA
Liste déroulante excel - Guide
Excel cellule couleur si condition texte - Guide
Excel additionner des cellules - Guide
Excel compter cellule couleur sans vba - Guide
Verrouiller cellules excel - Guide

1 réponse

Réponse 1 / 1

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
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

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters