J
Jose
Guest
Private Sub Sous_totaux_art_Click()
If Range("A4").Value <> "" Then
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.RemoveSubtotal
Selection.Subtotal GroupBy:=1, Function:=xlSum,
TotalList:Array(6),_
Que dois-je faire pour ecrire le petit ciseau avant TotalList
If Range("A4").Value <> "" Then
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.RemoveSubtotal
Selection.Subtotal GroupBy:=1, Function:=xlSum,
TotalList:Array(6),_
Que dois-je faire pour ecrire le petit ciseau avant TotalList