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

6 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
Crel
Merci beaucoup Monique
Patrick

"Monique Brunel" a écrit dans le message de news:

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



























Avatar
francois
bonjours a tous
dans cette formule toutes les couleurs fonctionnent sauf le bleu j'ai éssayé
tout les bleu de la palette par défaud
rien a y faire
comment paut on trouver le n° de chaque couleur de la palette s'il vous
plais
merci d'avence
Avatar
sabatier
bonsoir françois
si tu veux lancer cette proc depuis n'importe quel module, tu devrais
avoir ce que tu cherches...
je te rassure : ce n'est pas de moi, mais peut-être bien de la police
belge, donc méfie-toi quand même, des ripoux y en a dans tous les pays...
jps

Sub paletteCouleurs()
For i = 1 To 56
With Cells(i, 11).Interior
.ColorIndex = i
End With
Next
End Sub

francois a écrit:
bonjours a tous
dans cette formule toutes les couleurs fonctionnent sauf le bleu j'ai éssayé
tout les bleu de la palette par défaud
rien a y faire
comment paut on trouver le n° de chaque couleur de la palette s'il vous
plais
merci d'avence




Avatar
sabatier
pardon, pour les essais, j'avais mis les couleurs dans le colonne K mais
mieux vaut les coller dans la colonne A : ainsi, tu as en regard les n°
de chaque couleur

Sub paletteCouleurs()
For i = 1 To 56
With Cells(i,1).Interior
.ColorIndex = i
End With
Next
End Sub

francois a écrit:
bonjours a tous
dans cette formule toutes les couleurs fonctionnent sauf le bleu j'ai éssayé
tout les bleu de la palette par défaud
rien a y faire
comment paut on trouver le n° de chaque couleur de la palette s'il vous
plais
merci d'avence




Avatar
francois
bonjours au groupe
merci sabatier
s'est supper
"sabatier" a écrit dans le message de news:

bonsoir françois
si tu veux lancer cette proc depuis n'importe quel module, tu devrais
avoir ce que tu cherches...
je te rassure : ce n'est pas de moi, mais peut-être bien de la police
belge, donc méfie-toi quand même, des ripoux y en a dans tous les pays...
jps

Sub paletteCouleurs()
For i = 1 To 56
With Cells(i, 11).Interior
.ColorIndex = i
End With
Next
End Sub

francois a écrit:
bonjours a tous
dans cette formule toutes les couleurs fonctionnent sauf le bleu j'ai
éssayé


tout les bleu de la palette par défaud
rien a y faire
comment paut on trouver le n° de chaque couleur de la palette s'il vous
plais
merci d'avence







Avatar
isabelle
bonjour François,

si tu veux connaitre le numéro d'index d'une couleur utilisé sur la
feulle de calcul, sélectionne la cellule contenant cette couleur et
exécute cette macro,

Sub InfoCouleur()
With ActiveCell
MsgBox ("couleur de la cellule : " & .Interior.ColorIndex & _
Chr(10) & " couleur du texte : " & .Font.ColorIndex)
End With
End Sub

isabelle



bonjours a tous
dans cette formule toutes les couleurs fonctionnent sauf le bleu j'ai éssayé
tout les bleu de la palette par défaud
rien a y faire
comment paut on trouver le n° de chaque couleur de la palette s'il vous
plais
merci d'avence


1 2