Faire le total des sous-totaux d'une macro

Bonsoir à tous!

Je viens vers vous afin de pouvoir résoudre un problème de macro pour lequel je ne trouve pas de solution.En effet j'ai une macro qui me permet de faire les sous-totaux en fonction du N° de document, par date et nom, et je voudrais par la suite faire le total de ses sous-totaux seulement en fonction des noms.Je vous transmets le fichier pour mieux comprendre ce que je souhaite.Merci d'avance pour votre précieuse contribution.

Bonjour,

A te relire pour un complément d'informations.

Bonnes fêtes de fin d'année.

Cdlt.

Bonjour,

Salut Jean-Eric,

Joyeux noël à tous

Pas tout à fait la même présentation mais avec Sous-total c'est fait avec 5 clics.

2 lignes en enregistrement de macro si tu le veux vraiment ainsi pour fignoler ensuite la forme.

Private Sub CommandButton1_Click()
    With [A:I]
        .Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(4, 6), _
                  Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 6), _
                  Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    End With
End Sub

eric

Re,

Bonjour Eriiic,

C'est la solution que j'ai retenu, avec en plus la mise en forme souhaitée.

Attendons le retour de faro0911.

Et joyeux Noêl...

Cdlt.

Bonjour Jean-Eric,

Ah, je n'ai pas fait attention dans le détail quand j'ai vu ton post s'afficher en validant le mien.

Tu as remarqué que .Subtotal ne réagissait pas toujours pareil ?

Des fois dans l'ordre des sous-totaux, et là j'ai perdu le total général et toi les sous-totaux par nom client.

Bizarre...

eric

Re,

J'ai modifié le classeur en conséquence.

Je n'avais pa eu ce dysfonctionnement pendant mes tests.

Cdlt

With rng
            .Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(4, 6)
            .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 6), Replace:=False
        End With

Bonjour et joyeux noël à tous!

Merci Eriiic et Jean eric, j'ai testé les 2 propositions elles marchent bien.Une préférence pour celle de Jean eric car plus proche de ma présentation souhaitée.Merci encore pour vos contributions.Vous souhaitant au passage une bonne fête de fin d'année 2014.

A +