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
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