Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion fid
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fid

XLDnaute Nouveau
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é :
Code:
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
 
Re : sous-total par macro et message pour inclure la ligne de titres

Bonjour le fil 🙂,
Peut-être entourer la ligne fautive avec
Code:
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Si pas ça, ben même remarque que Mutzik 😛...
Bonne suite 😎
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…