calcul cellule couleur

  • Initiateur de la discussion Initiateur de la discussion christian
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

christian

Guest
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
 
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å
 
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å
 
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...
twirlball03.gif

très utile...
A+ Vériland
 
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å
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
8
Affichages
69
Réponses
17
Affichages
173
Réponses
21
Affichages
468
Réponses
2
Affichages
289
Retour