Cellules et couleur

[Claude]

bonjour..
Suis a la recherche d'une formule me permettant de compter les cellules remplies avec une couleur specifique bleu par exemple
Merci

 

[Vériland]

Bonjour Claude et toi le forum,

Avec une simple formule c'est pas possible...il te faut une fonction...

Dans le fichier joint tu as la réponse à ta question...bon j'ai pas eu à me fatiguer puisque le fichier de base vient de Ti...j'ai simplement enlevé un peu la poussière...lol...j'ai ajouté des commentaires pour que tu puisses utiliser cette fonction plus facilement...

 

[Le rital]

Bonjour Claude, Vérilland, Ti,

La fonction et nickel.

Serait-il possible d'ajouter dans la fonction la possibilité d'effectuer la somme des nombres des cellules en couleurs ?

Merci.............

Cordialement

Le rital

 

[Virginie©]

Bonjour le forum,

Voici une solution qui fera ce que tu demande plus la somme des chiffres


bon Week end

Virginie©

 

[Vériland]

Bonjour le Rital et toi le fourm,

Ti n'est pas encore passé ?...Bon ben j'vais répondre à ta question de somme avec une fonction...lol

Function SommeCouleur(Cellule As Object) As Integer
Dim cell As Variant
For Each cell In Cellule
SommeCouleur = SommeCouleur + Abs(cell.Interior.ColorIndex > -4142)
Next cell
End Function

cette fonction compte les couleurs d'une plage de cellule hormis celles qui n'en n'ont pas (-4142)

donc dans la cellule tu inscris :

=SommeCouleur(Ta plage)

et le tour est joué

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[Vériland]

Ah ben Virginie on a été synchro sur ce coup...lol

...l'essentiel est dans Excel...

Bonne journée

 

[Vériland]

tiens...pour la formule tu peux faire ainsi avec les deux fonctions...

=couleurs(Zone;5) & " cellule(s) bleue(s) sur un total de " & SommeCouleur(Zone) & " couleurs"

ce qui te donne le nombre de couleur bleue sur le total d'une plage

Zone étant ici la plage nommée dans Insertion / Nom / Définir

Bonne soupe...lol

 

[Claude]

Rebonjour...
Merci a vous j'essayes de ce pas

 

[Le rital]

Bojour à tous,

Merci d'avoir répondu à ma question.

Mais j'a pas bien formulé ma question.

En fait, je veux additionner les montants de cellules d'une certaine couleur


Merci

Cordialement

Le rital