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 Comptabiliser des cellules selon leurs couleurs

Comptabiliser des cellules selon leurs couleurs

8 réponses
Avatar
benoit.recarte
Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT, Congé
exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon vert
pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le nombre
de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît
Signaler un problème avec ce contenu

8 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
ru-th
Salut

compte plutôt la condition, plus fiable
sinon http://www.excelabo.net/xl/formats.php#sommecouleur
mais attention, le changement de couleur ne provoque pas de recalcul

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

"benoit.recarte" a écrit dans le message de
news:bu1nv7$1u6$
Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT, Congé
exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon vert
pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le
nombre

de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît




Avatar
Nicolas B.
Salut,

Il faut créer une fonction par vba.

Il y a une solution sur Excelabo :
http://www.excelabo.net/xl/fonctions.php#additioncouleur

Ou, plus simplifié, mais moins complet :

Function SommeVert(Plage)
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = 10 Then _
SommeVert = SommeVert + 1
Next
End Function


Pour compter le nombre de cellules vertes en A1:A10 :
=sommevert(a1:a10)

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT,
Congé exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon
vert pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le
nombre de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît


Avatar
benoit.recarte
Merci beaucoup de vos réponses.

"benoit.recarte" a écrit dans le message de
news: bu1nv7$1u6$
Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT, Congé
exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon vert
pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le
nombre

de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît




Avatar
benoit.recarte
La fonction simplifié de Nicolas marche néanmoins je souhaiterai qu'elle
s'incrémente automatiquement à chaque coloriage.

Est-ce possible ?

Merci

"Nicolas B." a écrit dans le message de
news:
Salut,

Il faut créer une fonction par vba.

Il y a une solution sur Excelabo :
http://www.excelabo.net/xl/fonctions.php#additioncouleur

Ou, plus simplifié, mais moins complet :

Function SommeVert(Plage)
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = 10 Then _
SommeVert = SommeVert + 1
Next
End Function


Pour compter le nombre de cellules vertes en A1:A10 :
=sommevert(a1:a10)

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT,
Congé exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon
vert pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le
nombre de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît






Avatar
ru-th
avec un pis aller
dans le module de la feuille
à l'évenement selection_change
activesheet.calculate

et si cela ne suffit pas, en début de fonction perso, rajoutes-un
application.volatile
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"benoit.recarte" a écrit dans le message de
news:bu1q39$ac9$
La fonction simplifié de Nicolas marche néanmoins je souhaiterai qu'elle
s'incrémente automatiquement à chaque coloriage.

Est-ce possible ?

Merci

"Nicolas B." a écrit dans le message de
news:
Salut,

Il faut créer une fonction par vba.

Il y a une solution sur Excelabo :
http://www.excelabo.net/xl/fonctions.php#additioncouleur

Ou, plus simplifié, mais moins complet :

Function SommeVert(Plage)
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = 10 Then _
SommeVert = SommeVert + 1
Next
End Function


Pour compter le nombre de cellules vertes en A1:A10 :
=sommevert(a1:a10)

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT,
Congé exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon
vert pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le
nombre de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît










Avatar
gee-dee-
;-)))
Oh! Toulouse....
quitte à simplifier, tout en étant plus complet :

Function SommeC(Plage As Range, NoCouleur As Integer)
'---on passe en argument le numero du colorIndex

Application.Volatile
'---permet le recalcul chaque fois qu'un calcul ou une saisie est effectué
dans une cellule quelconque

For Each Cellule In Plage
'-----on economise le If en utilisant le fait queVRAI= -1 FAUX= 0
SommeC = SommeC - (Cellule.Interior.ColorIndex = NoCouleur)
Next
End Function

;-)))

"Nicolas B." a écrit dans le message de
news:
Salut,

Il faut créer une fonction par vba.

Il y a une solution sur Excelabo :
http://www.excelabo.net/xl/fonctions.php#additioncouleur

Ou, plus simplifié, mais moins complet :

Function SommeVert(Plage)
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = 10 Then _
SommeVert = SommeVert + 1
Next
End Function


Pour compter le nombre de cellules vertes en A1:A10 :
=sommevert(a1:a10)

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT,
Congé exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon
vert pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le
nombre de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît






Avatar
Philippe.R
Bonsoir Benoît,
Comme te le disais Thierry, pas de recalcul automatique possible sur un changement de couleur, qui n'est
pas pour Excel un évènement.
Le mieux serait de passer par une MEFC, tu pourrais faire tous les calcules souhaités sur la condition.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"benoit.recarte" a écrit dans le message de
news:bu1q39$ac9$
La fonction simplifié de Nicolas marche néanmoins je souhaiterai qu'elle
s'incrémente automatiquement à chaque coloriage.

Est-ce possible ?

Merci

"Nicolas B." a écrit dans le message de
news:
Salut,

Il faut créer une fonction par vba.

Il y a une solution sur Excelabo :
http://www.excelabo.net/xl/fonctions.php#additioncouleur

Ou, plus simplifié, mais moins complet :

Function SommeVert(Plage)
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = 10 Then _
SommeVert = SommeVert + 1
Next
End Function


Pour compter le nombre de cellules vertes en A1:A10 :
=sommevert(a1:a10)

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT,
Congé exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules selon
vert pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser le
nombre de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît










Avatar
Nicolas B.
SommeC = SommeC - (Cellule.Interior.ColorIndex = NoCouleur)


Joli ;-)


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


;-)))
Oh! Toulouse....
quitte à simplifier, tout en étant plus complet :

Function SommeC(Plage As Range, NoCouleur As Integer)
'---on passe en argument le numero du colorIndex

Application.Volatile
'---permet le recalcul chaque fois qu'un calcul ou une saisie est
effectué dans une cellule quelconque

For Each Cellule In Plage
'-----on economise le If en utilisant le fait queVRAI= -1
FAUX= 0 SommeC = SommeC - (Cellule.Interior.ColorIndex > NoCouleur) Next
End Function

;-)))

"Nicolas B." a écrit dans le
message de news:
Salut,

Il faut créer une fonction par vba.

Il y a une solution sur Excelabo :
http://www.excelabo.net/xl/fonctions.php#additioncouleur

Ou, plus simplifié, mais moins complet :

Function SommeVert(Plage)
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = 10 Then _
SommeVert = SommeVert + 1
Next
End Function


Pour compter le nombre de cellules vertes en A1:A10 :
=sommevert(a1:a10)

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonjour à toutes et tous,

J'ai créé une fiche annuelle pour le personnel de suivi de CA, RTT,
Congé exceptionnel, maladie, longue maladie, etc ...

Tout ceci dans un planning, dans lequel je colorie les cellules
selon vert pour ca, bleu pour rtt etc..

Je recherche donc une fonction qui me permettrait de comptabiliser
le nombre de cellule bleu, verte, etc..

Merci à toutes et tous de votre aide.

Meilleurs voeux pour 2004

Benoît