1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub SousTotaux()
Dim Plage As Range, c As Range
Set Plage = Range([A9], Cells(Rows.Count, 1).End(xlUp))
Plage.Offset(, 6).FormulaR1C1 = "=Year(RC1)"
Columns(7).NumberFormat = "0000"
[G9] = ""
Set Plage = Plage.Resize(, 7)
Plage.RemoveSubtotal
Plage.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(3, 4, 5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Set Plage = Plage.Resize(Plage.Rows.Count + 2, 1)
For Each c In Plage
If Left(c.Offset(, 6).Value, 5) = "Total" Then
c.Offset(, 6).Copy c
End If
Next c
Columns(7).Hidden = True
End Sub |
Partager