OVH Cloud OVH Cloud

compter des cellules d'une couleur

5 réponses
Avatar
clotarn
Bonjour,
J'ai excel 2000 avec windows XP
je souhaiterai savoir s'il est possible de compter des cellules d'une
certaine couleur sur une feuille.
Si oui, quel type de macro utiliser ?
merci d'avance.

5 réponses

Avatar
banjo
Bonjour clotarn

Voir là par exemple : http://www.excelabo.net/xl/formats.php#sommecouleur

Cordialement,

Banjo


Bonjour,
J'ai excel 2000 avec windows XP
je souhaiterai savoir s'il est possible de compter des cellules d'une
certaine couleur sur une feuille.
Si oui, quel type de macro utiliser ?
merci d'avance.



Avatar
clotarn
Super, merci et avec quelle rapidité, Waouh!
bonne continuation.

=?Utf-8?B?YmFuam8=?= écrivait
news::

Bonjour clotarn

Voir là par exemple :
http://www.excelabo.net/xl/formats.php#sommecouleur

Cordialement,

Banjo


Bonjour,
J'ai excel 2000 avec windows XP
je souhaiterai savoir s'il est possible de compter des cellules d'une
certaine couleur sur une feuille.
Si oui, quel type de macro utiliser ?
merci d'avance.






Avatar
jps
bonjour clotarn
je t'ai copié ci-dessous la brillant réponse du brillant québécois denis
michon qui nous fait guère l'honneur de sa visite car très occupé par
ailleurs
la voici :

Voici une façon de faire :

Copie cette fonction dans un module standard :



Cette fonction compte le nombre de cellule affichant le

texte d'une certaine couleur, Si tu veux obtenir la même chose

pour la couleur de fond des cellules, modifie cette ligne de code

dans la fonction

If c.Font.ColorIndex = Couleur Then

Par

If c.Interior.ColorIndex = Couleur Then

'----------------------------------

Function SommeCouleur(champ As Range, Couleur As Integer)

Application.Volatile

Dim c As Range, Temp As Double

Temp = 0

For Each c In champ

If c.Font.ColorIndex = Couleur Then

Temp = Temp + c.Value

End If

Next c

SommeCouleur = Temp

End Function

'----------------------------------

Dans la cellule, tu inscris : =SommeCouleur(A1:B10,3)

la fonction va additionner toutes les cellules de la plage A1:B10

qui ont l'index de la police de caractère égale à 3 (rouge dans

un workbook standard)

Les index des couleurs varient entre 1 et 56



Attention, si tu modifies le format de certaines cellules, la fonction ne

se met pas à jour automatiquement, tu dois utiliser la touche F9 ou

attendre que la feuille se recalcule.


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

Bonjour,
J'ai excel 2000 avec windows XP
je souhaiterai savoir s'il est possible de compter des cellules d'une
certaine couleur sur une feuille.
Si oui, quel type de macro utiliser ?
merci d'avance.


Avatar
banjo
A mon grand regret, je n'ai que peu de mérite dans cette réponse. Uniquement
d'avoir suivi depuis quelques temps les messages de ce forum. Cette question
a été maintes fois posée. Tu aurais pu trouver également ce que tu cherchais
en fouillant un peu.
Je n'ai fait que t'aiguiller sur un site où l'on peut trouver de nombreuses
réponses. Il en existe d'autres.
Jette également un oeil à la réponse de jps.

Cordialement,

Banjo


Super, merci et avec quelle rapidité, Waouh!
bonne continuation.

=?Utf-8?B?YmFuam8=?= écrivait
news::

Bonjour clotarn

Voir là par exemple :
http://www.excelabo.net/xl/formats.php#sommecouleur

Cordialement,

Banjo


Bonjour,
J'ai excel 2000 avec windows XP
je souhaiterai savoir s'il est possible de compter des cellules d'une
certaine couleur sur une feuille.
Si oui, quel type de macro utiliser ?
merci d'avance.










Avatar
JB
http://groups.google.fr/group/microsoft.public.fr.excel/browse_frm/thread/3 8c117390bcdfdcb/9ca4074d81b5f603?q=jb+somme_couleur&rnum=1#9ca4074d81b5 f603

JB



bonjour clotarn
je t'ai copié ci-dessous la brillant réponse du brillant québécoi s denis
michon qui nous fait guère l'honneur de sa visite car très occupé p ar
ailleurs
la voici :

Voici une façon de faire :

Copie cette fonction dans un module standard :



Cette fonction compte le nombre de cellule affichant le

texte d'une certaine couleur, Si tu veux obtenir la même chose

pour la couleur de fond des cellules, modifie cette ligne de code

dans la fonction

If c.Font.ColorIndex = Couleur Then

Par

If c.Interior.ColorIndex = Couleur Then

'----------------------------------

Function SommeCouleur(champ As Range, Couleur As Integer)

Application.Volatile

Dim c As Range, Temp As Double

Temp = 0

For Each c In champ

If c.Font.ColorIndex = Couleur Then

Temp = Temp + c.Value

End If

Next c

SommeCouleur = Temp

End Function

'----------------------------------

Dans la cellule, tu inscris : =SommeCouleur(A1:B10,3)

la fonction va additionner toutes les cellules de la plage A1:B10

qui ont l'index de la police de caractère égale à 3 (rouge dans

un workbook standard)

Les index des couleurs varient entre 1 et 56



Attention, si tu modifies le format de certaines cellules, la fonction ne

se met pas à jour automatiquement, tu dois utiliser la touche F9 ou

attendre que la feuille se recalcule.


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

Bonjour,
J'ai excel 2000 avec windows XP
je souhaiterai savoir s'il est possible de compter des cellules d'une
certaine couleur sur une feuille.
Si oui, quel type de macro utiliser ?
merci d'avance.