Ola forum et Denis mon collegue des sous totaux,
bon j'avance j'ai une sub qui marche mais pour la transformer en function it's difficult voila le code :
Sub SousTot()
With ActiveCell
Set Plage = Range(.Offset(-1), .Offset(1).End(xlUp))
.Formula = "=SUM(" & Plage.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ")"
End With
End Sub
Function test(celluleactive)
celluleactive.Activate
' With ActiveCell
Set Plage = Range(.Offset(-1), .Offset(1).End(xlUp))
.Formula = "=SUM(" & Plage.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ")"
' End With
End Function
donc la sub marche mais la fct non a mon grand regret !! !! ! !! !