Re : Comment modifier cette macro, pr exporter des données...
Bonsoir Christian0258, jeanpierre, le fil
Essayes cette méthode
Lances ta macro habituelle, puis lance AFFICHERSousTOTAL
pour finir lance SUPPRIMERSousTOTAL
Code:
Sub AFFICHERSousTOTAL()
Range("Q1:S" & [S65536].End(xlUp).Row).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(3), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ExecuteExcel4Macro "SHOW.DETAIL(1,9,FALSE)"
End Sub
Code:
Sub SUPPRIMERSousTOTAL()
Range("Q1:S" & [S65536].End(xlUp).Row).RemoveSubtotal
End Sub