calcul cellule couleur

[christian]

Bonsoir vous tous et bonsoir le forum

j'aimerais savoir comment calculé la somme des cellules de couleur ex: rouge, dans mon tableau

merci

et encore félicitaion pour l'opportunité que vous nous offrez

christian

 

[Didier]

Bonjour Christian et le forum
Je te fais parvenir un fichier de @+Thierry qui correspond à ta demande
on évite les pièces jointes en ce moment.
Bonne journée à tous
Didier

 

[Mytå]

Salut Christian et Didier

Un exemple que j'avais deja donner sur le forum pour un tableau de B7:K14

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim colonne As Byte, rang As Long, a As Long
Dim vert As Integer, jaune As Integer, rouge As Integer
Dim somme_vert As Double, somme_jaune As Double, somme_rouge As Double
For colonne = 2 To 11
vert = 0: somme_vert = 0
jaune = 0: somme_jaune = 0
rouge = 0: somme_vert = 0
For rang = 7 To 14
a = Cells(rang, colonne).Interior.ColorIndex
'Compte le nombre de cellules d'une couleur
If a = 10 Then vert = vert + 1
If a = 44 Then jaune = jaune + 1
If a = 3 Then rouge = rouge + 1
'Fait la somme des valeurs de cellules d'une couleur
If a = 10 Then somme_vert = somme_vert + Cells(rang, colonne).Value
If a = 44 Then somme_jaune = somme_jaune + Cells(rang, colonne).Value
If a = 3 Then somme_rouge = somme_rouge + Cells(rang, colonne).Value
Next rang
Cells(15, colonne).Value = vert
Cells(16, colonne).Value = jaune
Cells(17, colonne).Value = rouge
Cells(20, colonne).Value = somme_vert
Cells(21, colonne).Value = somme_jaune
Cells(22, colonne).Value = somme_rouge
Next colonne
End Sub


Mytå

 

[Mytå]

Re le forum

Désolé mauvais fichier voila le bon

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim colonne As Byte, rang As Long, a As Long
Dim vert As Integer, jaune As Integer, rouge As Integer
Dim somme_vert As Double, somme_jaune As Double, somme_rouge As Double
vert = 0: somme_vert = 0
jaune = 0: somme_jaune = 0
rouge = 0: somme_vert = 0
For colonne = 2 To 11
For rang = 7 To 14
a = Cells(rang, colonne).Interior.ColorIndex
'Compte le nombre de cellules d'une couleur
If a = 4 Then vert = vert + 1
If a = 6 Then jaune = jaune + 1
If a = 3 Then rouge = rouge + 1
'Fait la somme des valeurs de cellules d'une couleur
If a = 4 Then somme_vert = somme_vert + Cells(rang, colonne).Value
If a = 6 Then somme_jaune = somme_jaune + Cells(rang, colonne).Value
If a = 3 Then somme_rouge = somme_rouge + Cells(rang, colonne).Value
Next rang
Next colonne
Cells(15, 2).Value = vert: Cells(15, 2).Interior.ColorIndex = 4
Cells(16, 2).Value = jaune: Cells(16, 2).Interior.ColorIndex = 6
Cells(17, 2).Value = rouge: Cells(17, 2).Interior.ColorIndex = 3
Cells(20, 2).Value = somme_vert: Cells(20, 2).Interior.ColorIndex = 4
Cells(21, 2).Value = somme_jaune: Cells(21, 2).Interior.ColorIndex = 6
Cells(22, 2).Value = somme_rouge: Cells(22, 2).Interior.ColorIndex = 3
End Sub

Desolé Mytå

 

[Ti]

Il est peut-être plus simple de créer une petite fonction directement utilisable dans la feuille Excel, qui renverra la somme des cellules d'une couleur donnée dans une plage, comme dans le fichier joint.

 

[Vériland]

Bonsoir ce fil et le Forum,

J'fais que passer...lol...ben dit donc Thierry, l'est sympa ton fichier...très pratique...en plus tu a mis les codes couleurs dans VBA...

très utile...
A+ Vériland

 

[Mytå]

re le forum

Mais la le nombre de cellules mais ma macro en fait la somme des valeur en plus

Avec ici un modification pour etre sur que les cellules soient numeriques

'Fait la somme des valeurs de cellules d'une couleur
If IsNumeric(Cells(rang, colonne).Value) Then
If a = 4 Then somme_vert = somme_vert + Cells(rang, colonne).Value
If a = 6 Then somme_jaune = somme_jaune + Cells(rang, colonne).Value
If a = 3 Then somme_rouge = somme_rouge + Cells(rang, colonne).Value
End If


sinon le fichier de Ti super

Mytå

 

[chloe]

bonjour au pro de Excel,

Bon je veux arriver à calculer le contenu des cellules selon leur couleur (voir fichier joint). Est ce que qqun pourrais m'aider ?? (comme en completant ma mini feuille de calcul juste pour l'exemple?? et en me là renvoyant) Ca m'aiderais à comprendre.

Merci pour tout