Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Compter les cellules d'une même couleur

Compter les cellules d'une même couleur

16 réponses
Avatar
Crel
Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick
Signaler un problème avec ce contenu

10 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
1 2
Avatar
sabatier
salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:
Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick





Avatar
Crel
Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va de
B3:B15000
Patrick


"sabatier" a écrit dans le message de news:

salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:
Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick








Avatar
gb
Bonjour.

Pour appeler cette fonction, tu fais quelque chose comme ceci:

Sub test()

Dim MaZone As Range, MaCouleur As String

Set MaZone = Range("B1:B15000")
MaCouleur = "orange"

resultat = SomParCouleur(MaZone, MaCouleur)

End Sub

gb

"Crel" wrote in message
news:ObHrl$
Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va de
B3:B15000
Patrick


"sabatier" a écrit dans le message de news:

salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:
Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick












Avatar
sabatier
ach! patrick
pour une fois que je pense pouvoir aider, c'est la chienlit...
je crois me souvenir que tes couleurs sont issues d'une MEFC, non?
dans ce cas, ça ne marchera pas, te diront nos maîtres...
comme disait coluche, les blancs de la MEFC sont plus blancs que ceux de
la
palette de couleurs...
jp

Crel wrote:

Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va de
B3:B15000
Patrick

"sabatier" a écrit dans le message de news:

salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:
Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick










Avatar
sabatier
re patrick
j'ai peur d'avoir mal compris : tu veux compter le nombre de cellules ayant
telle couleur ou additionner les valeurs contenues dans les cellules de telle
couleur, ce qu'en fait fait la function que je t'ai envoyée et qui dans tous
les cas, est à installer dans un module standard ; si tu l'installes dans ton
perso.xls, elle sera à ta constante disposition ; tu dois la trouver dans la
liste des fonctions disponibles sous Autres Fonctions puis Fonctions
personnalisées...
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...
jps

Crel wrote:

Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va de
B3:B15000
Patrick

"sabatier" a écrit dans le message de news:

salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:
Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick










Avatar
ru-th
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...
non, non, pour ce soir, c'est bon.... tu peux continué à t'occuper de Crel,

j'arriverai bien à me débrouiller ;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:

re patrick
j'ai peur d'avoir mal compris : tu veux compter le nombre de cellules
ayant

telle couleur ou additionner les valeurs contenues dans les cellules de
telle

couleur, ce qu'en fait fait la function que je t'ai envoyée et qui dans
tous

les cas, est à installer dans un module standard ; si tu l'installes dans
ton

perso.xls, elle sera à ta constante disposition ; tu dois la trouver dans
la

liste des fonctions disponibles sous Autres Fonctions puis Fonctions
personnalisées...
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...
jps

Crel wrote:

Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va
de


B3:B15000
Patrick

"sabatier" a écrit dans le message de news:

salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:
Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick













Avatar
sabatier
ben oui, je veux bien, mais m'a pas répondu crel...
jps

ru-th a écrit:
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...


non, non, pour ce soir, c'est bon.... tu peux continué à t'occuper de Crel,
j'arriverai bien à me débrouiller ;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:


re patrick
j'ai peur d'avoir mal compris : tu veux compter le nombre de cellules


ayant

telle couleur ou additionner les valeurs contenues dans les cellules de


telle

couleur, ce qu'en fait fait la function que je t'ai envoyée et qui dans


tous

les cas, est à installer dans un module standard ; si tu l'installes dans


ton

perso.xls, elle sera à ta constante disposition ; tu dois la trouver dans


la

liste des fonctions disponibles sous Autres Fonctions puis Fonctions
personnalisées...
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...
jps

Crel wrote:


Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va


de


B3:B15000
Patrick

"sabatier" a écrit dans le message de news:


salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:

Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick
















Avatar
Crel
Désolé voisin, je cours plusieurs lièvres à la fois !
Je laisse tomber car les couleurs sont issues d'une MEFC, je vais contourner
le pb
Merci beaucoup
Patrick

"sabatier" a écrit dans le message de news:

ben oui, je veux bien, mais m'a pas répondu crel...
jps

ru-th a écrit:
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...


non, non, pour ce soir, c'est bon.... tu peux continué à t'occuper de
Crel,


j'arriverai bien à me débrouiller ;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:


re patrick
j'ai peur d'avoir mal compris : tu veux compter le nombre de cellules


ayant

telle couleur ou additionner les valeurs contenues dans les cellules de


telle

couleur, ce qu'en fait fait la function que je t'ai envoyée et qui dans


tous

les cas, est à installer dans un module standard ; si tu l'installes
dans




ton

perso.xls, elle sera à ta constante disposition ; tu dois la trouver
dans




la

liste des fonctions disponibles sous Autres Fonctions puis Fonctions
personnalisées...
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...
jps

Crel wrote:


Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va


de


B3:B15000
Patrick

"sabatier" a écrit dans le message de news:


salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:

Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick



















Avatar
sabatier
ouais, c'est bien que j'avais subodoré...
la prochaine fois que je descends à lyon, je te fais signe...oki?
jps

Crel a écrit:
Désolé voisin, je cours plusieurs lièvres à la fois !
Je laisse tomber car les couleurs sont issues d'une MEFC, je vais contourner
le pb
Merci beaucoup
Patrick

"sabatier" a écrit dans le message de news:


ben oui, je veux bien, mais m'a pas répondu crel...
jps

ru-th a écrit:

bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...


non, non, pour ce soir, c'est bon.... tu peux continué à t'occuper de


Crel,


j'arriverai bien à me débrouiller ;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:



re patrick
j'ai peur d'avoir mal compris : tu veux compter le nombre de cellules


ayant


telle couleur ou additionner les valeurs contenues dans les cellules de


telle


couleur, ce qu'en fait fait la function que je t'ai envoyée et qui dans


tous


les cas, est à installer dans un module standard ; si tu l'installes


dans



ton


perso.xls, elle sera à ta constante disposition ; tu dois la trouver


dans



la


liste des fonctions disponibles sous Autres Fonctions puis Fonctions
personnalisées...
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...
jps

Crel wrote:



Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage va


de



B3:B15000
Patrick

"sabatier" a écrit dans le message de news:



salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:


Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par avance.
Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick





















Avatar
Monique Brunel
Bonjour Patrick,

Dans ce cas, tu devrais trouver la solution sur http://www.excelabo.net/
Je pense que c'est sur la page "condition" (je ne parviens de nouveau plus à
accèder au site pour pouvoir te donner l'adresse exacte...)

--
Amicalement,
Monique (la Wallonne)
en campagne pour des sites conformes aux standards et accessibles...
http://www.webmaster-hub.com/
et pour les amateurs d'athlétisme... http://users.skynet.be/osga/


"Crel" a écrit dans le message de
news:%
Désolé voisin, je cours plusieurs lièvres à la fois !
Je laisse tomber car les couleurs sont issues d'une MEFC, je vais
contourner

le pb
Merci beaucoup
Patrick

"sabatier" a écrit dans le message de news:

ben oui, je veux bien, mais m'a pas répondu crel...
jps

ru-th a écrit:
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...


non, non, pour ce soir, c'est bon.... tu peux continué à t'occuper de
Crel,


j'arriverai bien à me débrouiller ;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:


re patrick
j'ai peur d'avoir mal compris : tu veux compter le nombre de cellules


ayant

telle couleur ou additionner les valeurs contenues dans les cellules
de





telle

couleur, ce qu'en fait fait la function que je t'ai envoyée et qui
dans





tous

les cas, est à installer dans un module standard ; si tu l'installes
dans




ton

perso.xls, elle sera à ta constante disposition ; tu dois la trouver
dans




la

liste des fonctions disponibles sous Autres Fonctions puis Fonctions
personnalisées...
bon, c'est l'heure de la traite et y a thierry qui a besoin de moi...
jps

Crel wrote:


Salut JPS
Euh...
En fait je n'arrive pas à la faire fonctionner, sachant que ma plage
va






de


B3:B15000
Patrick

"sabatier" a écrit dans le message de
news:







salut patrick
j'ai cette function en magasin...si ça t'intéresse
bon app'
jps

Public Function SomParCouleur(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
Dim C As Range
Dim cvsomme
Application.Volatile True
Select Case couleur
Case "rouge"
couleur = 3
Case "vert"
couleur = 35
Case "jaune"
couleur = 36
Case "bleu"
couleur = 28
Case "gris"
couleur = 15
Case "orange"
couleur = 40
End Select
For Each C In Zone
If C.Interior.ColorIndex = couleur Then cvsomme = _
cvsomme + C.Value
Next
SomParCouleur = cvsomme
End Function

Crel a écrit:

Bonjour à toutes et tous,
Cette question est très souvent posée, et je m'en excuse par
avance.







Sur Excelabo, je ne trouve pas la réponse.
Comment peut-on compter les cellules ayant une même couleur.
Merci beaucoup
Patrick























1 2