Compter le nombre de cellules non vides avec une mm couleur de f

Résolu/Fermé
Laeti3112 - 20 mai 2015 à 18:35
 Laeti3112 - 21 mai 2015 à 12:09
Bonjour,

J'aimerais savoir comment compter le nombre de cellules non vides (contenant une valeur numérique et pas un texte) ayant une même couleur de fond.

Je dispose de cette fonction pour additionner le nombre de cellules ayant la même couleur de fond :

Public 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

=NbreCellulesCouleur(plage;couleur)

Je pense qu'il faut que j'ajoute la condition cellule non vide (nombre)... Mais les essais que j'ai effectué jusque là restent infructueux....

Je suis débutante, merci d'avance pour votre collaboration.

Laetitia+++

4 réponses

f894009
Messages postés
16698
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 septembre 2022
1 654
20 mai 2015 à 18:46
Bonjour,

Public 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) And IsNumeric(cellule) Then
            NbreCellulesCouleur = NbreCellulesCouleur + 1
        End If
    Next cellule
End Function
1
ccm81
Messages postés
10459
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
20 septembre 2022
2 314
20 mai 2015 à 18:58
Bonjour

Si la couleur a été mise "à la main", la macro de f894009 que je salue au passage, fonctionnera bien
Par contre si la couleur provient d'une MFC, il faudra s'y prendre autrement

Cdlmnt
0
f894009
Messages postés
16698
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 septembre 2022
1 654
20 mai 2015 à 19:06
Bonjour ccm81,

Tout a fait, si MFC marchera pas
0
Merci pour votre aide salutaire, j'essaie demain les modifications et vous tiendrai au courant!
Et pour vous répondre, la couleur de fond est rentrée manuellement et pas par MFC...

Cordialement+++
0
Tout est ok.
Merci f894009!!!
0