Compter les cellules d'une certaine couleur [Résolu/Fermé]

Signaler
Messages postés
33
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
16 avril 2013
-
Messages postés
33
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
16 avril 2013
-
Bonjour,

J'ai réalisé un calendrier (Lignes=jours, Mois=Colonnes) de mes congés, RTT...etc, ou chacune des dates est coloriée différemment selon qu'il s'agisse d'une journée travaillée, congé, ou RTT.
Je souhaiterais maintenant comptabiliser ces différentes journées automatiquement.
Quelqu'un a-t-il une astuce?

Merci d'avance.

5 réponses

Messages postés
23816
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 janvier 2021
6 598
Bonjour,

une tite fonction personnalisée si ça te va :
Function CptCouleur(plage As Range, couleur As Range) As Long
    Dim cpt As Long, cel As Range
    cpt = 0
    For Each cel In plage
        cpt = cpt - (cel.Interior.ColorIndex = couleur.Interior.ColorIndex)
    Next cel
    CptCouleur = cpt
End Function

à copier dans un module.
'Insertion / fonction' puis 'personnalisées', sélectionner CptCouleur, en premier paramètre désigner la plage avec la souris, en 2nd paramètre désigner 1 cellule ayant la couleur de fond que l'on désire compter.

l'exemple : http://www.cijoint.fr/cjlink.php?file=cj200805/cijOE7fyqO.xls
mais fait sur excel 2003...
eric
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Messages postés
33
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
16 avril 2013

Merci Eric, ça marche super!

Merci à tous les autres pour votre participation.
Messages postés
3014
Date d'inscription
jeudi 16 novembre 2006
Statut
Membre
Dernière intervention
23 janvier 2012
374
Bonjour,

En standard, il faut passer en excel 2007
Messages postés
33
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
16 avril 2013

Merci de ta réactivité, mais n'as-tu rien d'autre à me proposer, c'est un PC pro et je ne maîtrise pas les changements de version Excel!
Messages postés
3014
Date d'inscription
jeudi 16 novembre 2006
Statut
Membre
Dernière intervention
23 janvier 2012
374
Il faudra sans doute utiliser une macro en excel 2002.
Messages postés
33
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
16 avril 2013

OK, c'est un peu ce que je pensais aprés avoir parcouru toutes les fonctions d'excel et l'aide en ligne.
Je tate un petit peu de VBA, mais si je pouvais trouver une base de code toute faite, ça m'arrangerais.
Messages postés
3014
Date d'inscription
jeudi 16 novembre 2006
Statut
Membre
Dernière intervention
23 janvier 2012
374
Messages postés
16376
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
25 janvier 2021
3 120
Bonjour,

arrivé juste après Eric, je n'avais vu sa fonction qui répond au problème

je vien,s donc d'enlever ma proposition

Michel