Somme par cellules coloriées
Bonjour
Je souhaiterai faire la somme de toutes cellules qui sont coloriés pareillement à "D1" en "D83".
Qu'importe l'endroit du moment que les cellules sont quadrillées dans "D1:G83".
Si quelqu'un pourrait m'aider.
Merci d'avance.
Bonjour,
Une proposition en piéce jointe avec une formule personnalisée en vba.
Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.SUM(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function Bonne journée
bonjour
ne pas stocker d'information sous forme de couleur
les couleurs doivent se mettre seules grâce à des MFC et non au clavier/souris
imaginer un autre moyen pour saisir l'information, comme une ligne dans laquelle on pourra mettre des "!" pour dire "alerte"
ensuite les formules de calcul sont bien plus faciles, avec des SI basés sur cette ligne
amitiés
C'est ok
merci.
Bonjour
Une proposition en piéce jointe avec une formule personnalisée en vba.
Sauf que si on change la couleur d'une cellule le total ne change pas...
Ces fonctions offrent de forts risques d'imprimer un résultat faux...
On n'arrête pas, comme JMD, de répéter sur tous les forums que baser l'information sur la couleur est une mauvaise façon de travailler...