Cellules et couleur

V

Vériland

Guest

• 15 Novembre 2003

• #2

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...

 

Pièces jointes

• SommeCouleurTi_02.zip

  8.8 KB · Affichages: 24

Vote positif 0 Vote négatif

L

Le rital

Guest

• 15 Novembre 2003

• #3

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

 

Vote positif 0 Vote négatif

V

Virginie©

Guest

• 15 Novembre 2003

• #4

Bonjour le forum,

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


bon Week end

Virginie©

 

Pièces jointes

• Compte_Couleur_VBA.zip

  9.7 KB · Affichages: 20

Vote positif 0 Vote négatif

V

Vériland

Guest

• 15 Novembre 2003

• #5

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...

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 15 Novembre 2003

• #6

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

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

Bonne journée

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 15 Novembre 2003

• #7

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

 

Vote positif 0 Vote négatif

C

Claude

Guest

• 15 Novembre 2003

• #8

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

 

Vote positif 0 Vote négatif

L

Le rital

Guest

• 15 Novembre 2003

• #9

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

 

Vote positif 0 Vote négatif