Compter le nombre de celulles colorées non vides

Nenesandco

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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é !
 
Dernière édition:

Paf

XLDnaute Barbatruc
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
 
Dernière édition:

Paf

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

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

Discussions similaires


Haut Bas