XL 2013 Sous totaux automatique

[tibo54]

Bonjour,

Je rencontre un petit problème sur un futur fichier de facturation. Je souhaite réaliser une automatisation des calculs "sous total" pour chaque client avec une mise en forme particulière.

Pour mieux comprendre, j'intègre le fichier en PJ avec les données que j'ai et un exemple avec le sous total et la mise en forme (client "tata")

Je souhaite intégrer un bouton sur le côté de la zone d'écriture pour créer des sous totaux pour chaque client. Je suppose qu'il faut travailler avec VBA mais je ne suis pas très costaud...
Pouvez-vous m'aider svp?

 

[CHRIS1945]

Bonsoir,
Voici ton fichier en retour.
J'espère que cela répond à ta demande.
Pour obtenir cela, il faut organiser le tableau différemment en répétant le nom du client sur les lignes qui le concerne et supprimer toutes les lignes blanches. Ensuite tu mets en surbrillance le tableau y compris les titres et, sous l'onglet "Données" tu cliques sur SOUS TOTAUX à droite.
Tu obtiens un menu qu'il faudra paramétrer en indiquant quel est la colonne qui contient le point de rupture (Noms) et ensuite les colonnes où tu désires un sous total
Tu valides et Excel fait le reste
Si besoin de plus d'explications : poses tes questions.
A+
Chris

 

[klin89]

Bonsoir à tous,

Essaie ceci :

Sub test()
Dim r As Range
    For Each r In Columns(9).SpecialCells(2, 1).Areas
        With r(r.Rows.Count + 1)
            .HorizontalAlignment = xlRight
            .Value = "Total patient :"
            .Resize(, 2).MergeCells = True
        End With
        With r(r.Rows.Count + 1, 3)
            .HorizontalAlignment = xlCenter
            .Formula = "=sum(" & r.Offset(, 2).Resize(, 2).Address & " )"
            .Resize(, 2).MergeCells = True
        End With
        r(r.Rows.Count + 1).Resize(, 4).BorderAround Weight:=xlThin
    Next
End Sub

klin89