XL 2016 sous total après mise sous forme de tableau

[ChantalTreize]

Bonjour tout le monde,
Est il possible après une mise sous forme de tableau de faire des sous totaux automatiquement puisque que le bouton sous totaux est grisé ???
Par avance Merci
Bon confinement
Chantal

 

[chris]

Bonjour

Le fonctionnalité Sous-totaux est ante diluvienne

On ne l'utilise plus depuis des lustres et elle n'est maintenue que pour des raisons de compatibilité
Elle oblige à trier ses données, permet difficilement la saisie ultérieure et donne des résultats laids

Si on accepte de trier, une ou deux colonnes ajoutées donnent les mêmes sous-totaux de façon plus efficace et esthétique

Donc non elle n'est pas compatible avec les "nouvelles" fonctionnalités (les tableaux ont quand même 13 ans...)

 

[ChantalTreize]

Je craignais un peu votre réponse mais un grand merci quand même
Chantal

 

[job75]

Bonjour ChantalTreize, chris, le forum,

Oui mais si on tient à appliquer cette fonctionnalité voyez le fichier joint et ces macros :

Sub Sous_Total()
RAZ
With Feuil1.[A1].CurrentRegion
    .Offset(.Rows.Count + 1) = .Value
    .Offset(.Rows.Count + 1).Rows(1).Font.Bold = True 'titre en gras
    .Offset(.Rows.Count + 1).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End With
End Sub

Sub RAZ()
With Feuil1.[A1].CurrentRegion.EntireRow
    .Offset(.Rows.Count).Resize(.Parent.Rows.Count - .Rows.Count - .Row + 1).Delete xlUp
End With
End Sub

A+