Excel Somme cellules formatées en couleur
Fermé
louisemi
Messages postés
4
Date d'inscription
dimanche 19 juin 2011
Statut
Membre
Dernière intervention
18 décembre 2018
-
19 juin 2011 à 17:33
louisemi - 19 juin 2011 à 20:05
louisemi - 19 juin 2011 à 20:05
A voir également:
- Excel Somme cellules formatées en couleur
- Excel cellule couleur si condition texte - Guide
- Formule somme excel colonne - Guide
- Somme si couleur excel - Guide
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
1 réponse
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
950
19 juin 2011 à 19:08
19 juin 2011 à 19:08
Salut le forum
Une fonction personnalisée (Il en existe plusieurs variantes)
Code à mettre dans un module VBA
Ou encore sans connaitre la valeur de la palette des couleurs
Mytå
Une fonction personnalisée (Il en existe plusieurs variantes)
Code à mettre dans un module VBA
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long Application.Volatile True Dim wCell As Range For Each wCell In Plage If wCell.Interior.ColorIndex = NumeroDeCouleur Then SommeSiCouleur = SommeSiCouleur + wCell.Value End If Next End Function
Ou encore sans connaitre la valeur de la palette des couleurs
Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double Dim Cell As Range, TempSum As Double, ColorIndex As Integer Application.Volatile 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
Mytå
19 juin 2011 à 20:05
Encore merci
Cordialement
Louisemi