Compter le nombre de celulles colorées non vides

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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:
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour