comptage cellule couleur de remplissage

[antoine5274]

Bonjour a tous et deja je voulais signaler la performance de ce site. J'utilise de manière courante Excel, et je pensais maîtriser le logiciel, mais je vois que j'ai en core beaucoup a apprendre.

D'ailleur,j'ai une intérogation concernant le comptage de cellule de couleur (remplissage)
J'ai vu un tutoriel dans une autre discussion mais je n'ai pas compris.

Pouvez vous m'expliquer comment compter des cellules selon qu'elles soient rouge, verte, bleu, etc

 

[Kobal]

Re : comptage cellule couleur de remplissage

Bonjour antoine5274,

En macro, ça donnerait quelque chose comme ça:

sub CompteCouleur()
Dim Couleur as double, Compte as double
Dim Plage as Range

Compte = 0
Set Plage = Range(Cells(1,1), Cells(200,200))
For Couleur = 1 to 56
         For each cell in Plage
         if cell.Interior.Colorindex = Couleur then
                  Compte = Compte + 1
         end if
         next
         if Compte <>0 then
                  msgbox ("il y a " & Compte & "cellules avec la couleur " & Couleur & " comme remplissage")
         end if
next
end sub

Il va parcourir 56 fois toutes les cellules de la plage de recherche, et affichera un message donnant le nombre (si non nul) de cellules ayant cette couleur de remplissage.
(il y a surement des méthodes plus optimisées, rapides et mieux, mais je laisse ça aux pros du vba de ce forum 🙂 )

Cela te convient il?

 

[JNP]

Re : comptage cellule couleur de remplissage

Bonsoir le forum 🙂,
Si j'ai bien lu le sujet, il s'agit bien du comptage du nombre de cellule d'une couleur proposée. Personnellement, j'utilise une fonction :

Function Couleur(Plage)
Application.Volatile
Couleur = 0
Dim NombreCellule As Integer, I As Integer
NombreCellule = Plage.Count
For I = 1 To NombreCellule
Select Case Plage(I).Interior.ColorIndex
    Case 37 'Couleur à comptabiliser
        Couleur = Couleur + 1
End Select
Next I
End Function

qui me permet de compter les cellules. Maintenant, en ce qui me concerne, j'utilise cette fonction pour regarder la couleur de la cellule et effectuer ensuite des calculs sur le contenu en fonction de la couleur. Si Antoine le souhaite, je peux pousser plus loin le raisonnement.
A vous lire 😎