sous-total par macro et message pour inclure la ligne de titres

[fid]

bonjour le forum,

j'ai une macro qui fait des sous-totaux après des tris
lorsque j'arrive au niveau des sous-totaux, j'ai le message :
"Excel ne parvient pas à identifier la ligne de votre sélection qui contient les étiquettes de colonnes requises par cette commande"
je voudrais que dans la macro, la réponse soit OUI par défaut, afin de ne pas perturber l'utilisateur
que dois-je rajouter ?

voici le code concerné :

Sheets("recap-produits").Select
    Range("A1:Z" & Derlig).Select
    Selection.Subtotal GroupBy:=13, Function:=xlSum, TotalList:=Array(6), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    Sheets("recap-produits").Range("A1").CurrentRegion.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=4
    Set PlageVisible = ActiveSheet.UsedRange
    Set PlageVisible = PlageVisible.SpecialCells(xlCellTypeVisible)
    PlageVisible.Copy Sheets("TableauRecap").Range("A1")
    Application.CutCopyMode = False

d'avance merci pour vos lumières

 

[mutzik]

Re : sous-total par macro et message pour inclure la ligne de titres

bonjour,

avec un fichier exemple (données non confidentielles) nous permettrait d'y voir plus clair

 

[JNP]

Re : sous-total par macro et message pour inclure la ligne de titres

Bonjour le fil ,
Peut-être entourer la ligne fautive avec

Application.DisplayAlerts = False
Application.DisplayAlerts = True

Si pas ça, ben même remarque que Mutzik ...
Bonne suite

 

[fid]

Re : sous-total par macro et message pour inclure la ligne de titres

c'est exactement cela, dans mon cas :

Application.DisplayAlerts = False

Sheets("recap-produits").Select
Range("A1:Z" & Derlig).Select
Selection.Subtotal GroupBy:=13, Function:=xlSum, TotalList:=Array(6), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Sheets("recap-produits").Range("A1").CurrentRegion.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=4
Set PlageVisible = ActiveSheet.UsedRange
Set PlageVisible = PlageVisible.SpecialCells(xlCellTypeVisible)
PlageVisible.Copy Sheets("TableauRecap").Range("A1")
Application.CutCopyMode = False

Application.DisplayAlerts = True

et je n'ai plus le message d'alerte

merci à tous les deux pour votre aide