Aide Macro

[homernell]

Bonjour,

Jai cette macro qui me calcule le nb de cellule en fonction de la couleur, mais comment faire pour qu'il me calcule la somme des cellules et non le nb ?

Sub caisses()

End Sub
Function caisse(plg As Range) As Long
Application.Volatile
Dim oCel As Range
For Each oCel In plg.Cells
caisse = caisse - (oCel.Interior.ColorIndex = 43)
Next oCel
End Function


Merci d'avance

 

[Dranreb]

Re : Aide Macro

Bonsoir
À la limite :

caisse = caisse - (oCel.Interior.ColorIndex = 43) * oCel.Value

Mais peut être plutôt quand même :

If oCel.Interior.ColorIndex = 43 Then caisse = caisse + oCel.Value

Attention ça ne cumule que des nombres entiers. Si pas bon déclarer la Function As Double