Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Compter les cellules de couleur verte dans un classeur

Compter les cellules de couleur verte dans un classeur

3 réponses
Avatar
Dominique Caramelle
Bonjour,

J'ai un classeur avec des cellules de couleur différente, je voudrais
compter le nombre de cellule de couleur verte afficher le résultat dans une
cellule.

merci de vos réponses

--
Dominique
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Dominique Caramelle,

Dans un module:

Function SomCool(Zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "rouge": couleur = 3
Case "vert": couleur = 50
Case "jaune": couleur = 6
Case "bleu": couleur = 5
Case "gris": couleur = 15
Case "orange": couleur = 40
End Select
For Each c In Zone
If c.Interior.ColorIndex = couleur Then cvSomme = _
cvSomme + 1
Next
SomCool = cvSomme
End Function

et dans une cellule du classeur:
=SomCool(A1:A10;"vert")



ChrisV


"Dominique Caramelle" a écrit dans le message
de news: %
Bonjour,

J'ai un classeur avec des cellules de couleur différente, je voudrais
compter le nombre de cellule de couleur verte afficher le résultat dans
une cellule.

merci de vos réponses

--
Dominique



Avatar
Dominique Caramelle
Merci pour cette fonction c'est exactement ce qu'il me faut.

"ChrisV" a écrit dans le message de news:
%23wBNf$
Bonjour Dominique Caramelle,

Dans un module:

Function SomCool(Zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "rouge": couleur = 3
Case "vert": couleur = 50
Case "jaune": couleur = 6
Case "bleu": couleur = 5
Case "gris": couleur = 15
Case "orange": couleur = 40
End Select
For Each c In Zone
If c.Interior.ColorIndex = couleur Then cvSomme = _
cvSomme + 1
Next
SomCool = cvSomme
End Function

et dans une cellule du classeur:
=SomCool(A1:A10;"vert")



ChrisV


"Dominique Caramelle" a écrit dans le
message de news: %
Bonjour,

J'ai un classeur avec des cellules de couleur différente, je voudrais
compter le nombre de cellule de couleur verte afficher le résultat dans
une cellule.

merci de vos réponses

--
Dominique







Avatar
ChrisV
Re,

Associer la proc "zaza" à un bouton
(en supposant que la plage de cellule concernée se situe en B1:B10]

Dans un module:

Function SomCool(Zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "rouge": couleur = 3
Case "vert": couleur = 50
Case "jaune": couleur = 6
Case "bleu": couleur = 5
Case "gris": couleur = 15
Case "orange": couleur = 40
End Select
For Each c In Zone
If c.Interior.ColorIndex = couleur Then cvSomme = _
cvSomme + 1
Next
SomCool = cvSomme
End Function

Sub zaza()
[A1] = SomCool([B1:B10], "rouge")
[A2] = SomCool([B1:B10], "vert")
[A3] = SomCool([B1:B10], "bleu")
End Sub


ChrisV


----- Original Message -----
From: "Dominique Caramelle"
To: "ChrisV"
Sent: Tuesday, January 08, 2008 7:12 PM
Subject: Re: Compter les cellules de couleur verte dans un classeur


Merci pour cette réponse.

cette réponse me convient pour une feuille ou je n'ai qu'une seule
couleur.
Sur une autre feuille mes cellules sont de couleur différente, j'aurais
aimé par exemple en cliquant sur un bouton compter le nombre de cellule de
couleur verte, le nombre de cellule de couleur rouge, le nombre de cellule
de couleur bleu et afficher le résultat sur les cellules a1 pour le rouge,
a2 pour le vert et a3 pour le bleu.
merci d'avance