Discussion :

[STOUPI]

Bonjour à tous
Je cherche à comptabiliser le nombre de cellule ayant la même couleur de fond dans une certaine plage de données.
Pourriez-vous m'aider, je galère.
Merci d'avance

[rjamin]

Bonjour,

En VBA une fonction permet de faire cette somme. Vous écrivez ces quelques lignes de codes dans l'éditeur VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function SommeCelCouleur(Plage, Couleur)
Dim Cel As Object
    For Each Cel In Plage
        If Cel.Interior.ColorIndex = Couleur Then
            SommeCelCouleur = SommeCelCouleur + Cel
        End If
    Next Cel
End Function

Vous utilisez cette fonction comme une fonction intégrée d'excel en tapant dans une cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SommeCelCouleur(D2:D20;3)

et vous aurez la somme des nombres contenu dans la plage D2 à D20 et dont la couleur de cellule est rouge (Rouge = 3)

Oupss! à la relecture je m'aperçois que vous voulez simplement compter le nombre de cellule il faudar adapter un compteur dans ce que je vous ai envoyé
Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SommeCelCouleur = SommeCelCouleur + Cel

vous mettez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SommeCelCouleur = SommeCelCouleur + 1

Re,
Voilà la fonction pour compter les cellules de couleur Rouge.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Function CpteCelCouleur(Plage, Couleur)
Dim Cel As Object
    For Each Cel In Plage
        If Cel.Interior.ColorIndex = Couleur Then
            CpteCelCouleur = CpteCelCouleur + 1
        End If
    Next Cel
End Function

[Dairine]

Bonjour rjamin,
j'ai utilisé tes 2 fonctions pour, justement, compter des celules colorier en rouge. Mais sa ne fonctionne pas... (pour le test j'ai pris la couleur rouge sur la ligne 14, dans mon cas elle est bleu, voir en dessous)

J'ai joint mon fichier.
Je veux compter les jours que je prend en "Congé" (en bleu) et en "RTT" (en bleu ciel). Les celulles qui seront en couleur sont les jours de la semaine.
Cela pose t'il un probleme (texte+couleur) ?

Si tu a des question n'hésite pas.

Merci.

[rjamin]

Bonjour,
Vous n'avez pas écrit la fonction dans un module d'où le Nom? qui apparaît au lieu du résultat. Donc vous devez copier collez la fonction dans un module.
Une remarque cependant car le résultat sera 2 pour un jour Mardi par exemple, car mardi est dans deux cellules (fusion) rouge. Donc il faudra /2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CpteCelCouleur(B14:K14;3)/2

Moyennant cette adaptation ça fonctionne.

Une autre remarque, remettre une question dans une discussion de 2011 marquée Résolue pourrait ne jamais avoir de réponse.