Compter le nombre de celulles colorées non vides

[Nenesandco]

Bonjour à tous,


Comme toujours, cette question a déjà dû être posée mais je ne trouve pas mon bonheur ...

Existe-il une formule capable de compter le nombre de cellules d'une certaine couleur et non vides ?

Pour le moment, j'ai simplement trouvé une formule comptant le nombre de cellules d'une certaine couleur et contenant un texte précis :
Function NbColorText(ByRef Plage As Range, ByRef Couleur As Byte, text As String) As Long
Dim c As Range
Dim nb As Long
nb = 0
For Each c In Plage
If c.Interior.ColorIndex = Couleur And c.Value = text Then
nb = nb + 1
End If
Next c
NbColorText = nb
End Function

Source : Compter le nombre de cellules d'une couleur sous Excel


Merci d'avance pour votre aide à tous,

Nenesandco

 

[Paf]

Re : Compter le nombre de celulles colorées non vides

bonjour,
Je ne sais pas si les versions récentes d'Excel intègrent ce genre de fonction.
une modification du code pour compter les cellules non vides:

remplacer: And c.Value = text
par : And c.Value <> ""

bonne suite

 

[Paf]

Re : Compter le nombre de celulles colorées non vides

bonjour,
Je ne sais pas si les versions récentes d'Excel intègrent ce genre de fonction.
une modification du code pour compter les cellules non vides:

remplacer: And c.Value = text
par : And c.Value <> ""

et Function NbColorText(ByRef Plage As Range, ByRef Couleur As Byte, text As String) As Long
par :Function NbColorText(ByRef Plage As Range, ByRef Couleur As Byte) As Long

bonne suite



edit: tiens ? un loupé !

 

[Paf]

Re : Compter le nombre de celulles colorées non vides

bonjour,
Je ne sais pas si les versions récentes d'Excel intègrent ce genre de fonction.
une modification du code pour compter les cellules non vides:

remplacer: And c.Value = text
par : And c.Value <> ""

et Function NbColorText(ByRef Plage As Range, ByRef Couleur As Byte, text As String) As Long
par :Function NbColorText(ByRef Plage As Range, ByRef Couleur As Byte) As Long

pour ne pas avoir de texte à saisir dans la fonction personnalisée

bonne suite

 

[Paf]

Re : Compter le nombre de celulles colorées non vides

Désolé pour ce message en diffusion multiple (à chaque modif)

 

[MJ13]

Re : Compter le nombre de celulles colorées non vides

Bonjour NenesAndco, Paf

Tu peux tester ce fichier:

 

[Nenesandco]

Re : Compter le nombre de celulles colorées non vides

MJ13, Paf,


Merci pour votre aide. Tout fonctionne correctement.