J
jv44
Guest
Bonjour à tout le monde,
merci tout d'abord à tout ceux qui repondront à ma question, pour des raisons de confidentialité je ne pourrais poster mon fichier.
Alors voila, j'ai un gro fichier excel, avec une maccro qui calcul mes cellule selon leur couleure, et par jour, le Ic c'est que pour une meme couleure j'ai 2 variantes.
ma question est la suivante : comment entrer cette variante dans ma formule?
macro :
Function SumByColor(InputRange As Range, ColorRange As Range) As Double
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next ' ignore cells without values
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + cl.Value
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
formule : =SumByColor(**,**,**)
merci tout d'abord à tout ceux qui repondront à ma question, pour des raisons de confidentialité je ne pourrais poster mon fichier.
Alors voila, j'ai un gro fichier excel, avec une maccro qui calcul mes cellule selon leur couleure, et par jour, le Ic c'est que pour une meme couleure j'ai 2 variantes.
ma question est la suivante : comment entrer cette variante dans ma formule?
macro :
Function SumByColor(InputRange As Range, ColorRange As Range) As Double
Dim cl As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next ' ignore cells without values
For Each cl In InputRange.Cells
If cl.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + cl.Value
Next cl
On Error GoTo 0
Set cl = Nothing
SumByColor = TempSum
formule : =SumByColor(**,**,**)