compter les cellules colorisées!

[yves_passe]

bonjour le forum,

J'ai dèjà vu qu'il était possible de compter des cellules suivant leur code couleur.

Mais impossible de retrouver comment faire !

cela me serait utile pour le contraire compter les cellules noncolorées dans une plage

Merci pour votre aide

Yves

 

[PascalXLD]

Bonjour

Pour compter les couleurs une petite recherche sur le forum avec comme mots clés 'compter couleur' devrait faire ton bonheur

un exemple ici

Lien supprimé

 

[lio]

Bonjour PaasYves,

Es ce que la 'colorisation' (lol), vient d'une mise en forme conditionnelle ?

@+.

Perso: meme si je suis novice, je pense que compter des couleurs n'est pas top parce qu'il ne se produit pas une 'action' pour excel pour un recalcul éventuel ( Voir fil de Pascal => F9...).

Message édité par: lio, à: 10/02/2006 16:01

 

[Jacques87]

Bonjour Yves

Voici une petite procédure qui répondra à ta question :

Dim plage As Range, cel as Range
Dim I as Integer, N as integer
Set plage = Range('A15') ' c'est un exemple à adapter
For Each Cel in plage
If Cel.Interior.ColorIndex = xlNone Then N=N+1
Next C
MsgBox(N)

Bon courage

 

[PascalXLD]

Re

Ah oui bonne question Lio sinon la fonction ne marche pas

voir ce fil

Lien supprimé

 

[yves_passe]

merci à tous et brvo pour la rapiditée à laquelle vous avez répondu !

je penses trouver mon bonheur parmis vos réponses.

Le petit code de bernard me semble très sympas.

encore merci
Yves

 

[yves_passe]

merci à tous et brvo pour la rapiditée à laquelle vous avez répondu !

je penses trouver mon bonheur parmis vos réponses.

Le petit code de bernard me semble très sympas.

encore merci
Yves

 

[Jacques87]

Alors bravo Bernard alias Pascal76, alias Lio, alias Jacques87, on ne saura jamais.
Peu importe, le principal c'est que Yves alias passyves, soit satisfait

Bonne après midi à tous

 

[Jocelyn]

Bonjour le Forum,
Bonjour passyves,

voila un code qui crée une fonction pour compter les cellules en couleur (il n'est pas de moi).

Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range

Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell

NbColor = Compteur
End Function

pour l'installer fait alt+F11 dans la fenetre fait menu insertion => module et tu le colle dans le module.

ensuite dans ton classeur si tu veux compter les cellule en rouge de la plage A1 a A20 en B1 par exemple tu tape =NbColor(A1:A20;C1) la cellule C1 et colorisée suivant la couleur que tu veux compter

Jocelyn

oup's bonjour Lio, Pascal76, Jacques87 je suis désolé je n'avais pas raffraichi

Message édité par: Jocelyn, à: 10/02/2006 16:11