intégrer la couleur dans une formule

[@lonzo]

St à tous

Petit problème de néophite..
Dans la colonne A je rentre des nombres, et en fonction des résultats je mets les cellules en jaune, bleu et vert.
J'aimerais obtenir le total de cellules jaunes se trouvant dans cette colonne, peu importe le nombre qui y figure.
Pensez-vous que celà soit possible ??

Merci par avance pour vos réponses

@lonzo

 

[jpierre]

Salut @lonzo

Voila un exemple que j'ai utilisé

Cette fonction perso fait la somme des cellules rouges


Function CouleurCell(Range, Optional Couleur)
Dim Cell As Object
For Each Cell In Range
If Cell.Interior.ColorIndex = Couleur Then _
CouleurCell = CouleurCell + Cell
Next Cell
End Function
Pour appeler cette fonction dans la feuille de calcul
Tape, par exemple, dans une cellule l'instruction:
(3 représente la couleur rouge)
=couleurcell(A1:A9;3)


travaille le en fonction de ton application

JP

 

[@lonzo]

Slt et merci pour ta réponse.

J'ai essayé comme tu me l'indiques mais ça ne marche pas.
La cellule dans laquelle j'ai tapé =couleur.... me dit #NOM
Ne faut-il pas rajouté la fonction somme ?

Merci par avance
@lonzo

 

[Valérie]

Salut le forum,

@lonzo, comment places-tu la couleur sur tes cellules car si C en format conditionnel la procédure de Jean-Pierre ne fonctionnera effectivement pas. Si c le cas penche toi plutôt vers une formule de calcul sinon donnes plus de détails pour que je puisse t'aider

@ bientôt
Valérie

 

[@lonzo]

Slt Valérie

Je place ma couleur dans la cellule en pointant le bouton couleur dans la barre
Je ne sais pas si c'est un format conditionnel ?

On va dire que dans la colonne A les cellules A1 et A3 sont en jaune.
Je voudrais une formule qui par ex dans la cellule A5 me donne 2 (2 cellules en jaune dans A1:A4) et ceci peut importe le contenu des cellules (par ex 503 ou 802 ou 104)

Merci par avance
@lonzo

 

[jpierre]

cette fonction permet de additionner des cellules en fonction de l'aspect d'une cellule qui tu determine

Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double
Dim Cell As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each Cell In PlageEntree.Cells
If Cell.Formula < > "" Then
If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + _
Cell.Value
End If
Next Cell
On Error GoTo 0
Set Cell = Nothing
SumByColor = TempSum
End Function


essaye pour voir si cela te convient

jp

 

[Thierry CHUISNARD]

Merci pour cette fonction qui fonctionne correctement, j'aimerai savoir si le recalcul peut être automatique lorsque l'on change la couleur d'une cellule...
Cela me rendrait bien des services

A bon entendeur, salut

Thierry

 

[cgrandmaire]

Salut,
Je suis interessé par cette fonction mais je ne sais pas comment la mettre en place dans une application
merci de m'aider