Compter le nombre de cellules non vides avec une mm couleur de f
Résolu
Laeti3112
-
Laeti3112 -
Laeti3112 -
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+++
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+++
A voir également:
- Compter le nombre de cellules non vides avec une mm couleur de f
- Excel compter cellule couleur sans vba - Guide
- Nombre de jours entre deux dates excel - Guide
- Excel cellule couleur si condition texte - Guide
- Somme de plusieurs cellules excel - Guide
- Ouvrez cette page. dans le code de la page, modifiez la couleur de fond de la classe .pix. un code de 4 chiffres doit apparaître dans la grille. lequel ? ✓ - Forum Programmation
4 réponses
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
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
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
