Reporter des sous-totaux par macro

Bonjour,

Le fichier ci-joint contient à l'état brut environ 1000 lignes que j'ai simplifiées pour l'exemple. Dans le but de réaliser un tableau de synthèse :

>>> je souhaiterais récupérer les sous-totaux de chaque catégorie de produits (surligner en rouge)

>>> J'aimerais également réaliser des sous-totaux de la colonne N pour chaque produit, et reporter ces sous-totaux en colonne E (surligner en bleu)

Vu que le nombre de lignes à traiter varie chaque semaine, je privilégierais une solution par macro car j'ai commencé à réaliser une macro pour mettre en forme ces données.

merci pour le coup de main

Bonjour,

OK. Je comprends ton besoin. Est-ce possible d'avoir une partie de ton fichier brut d'origine sans les commentaires ?

Bonjour Raja

tu trouveras ci-joint une partie du fichier brut, sans les commentaires.

Re,

Essaye le code suivant en l'adaptant si besoin est :

Sub test()
    Rows(1).Insert 'besoin pour le boucle
    derLig = Range("R" & Rows.Count).End(xlUp).Row
    'boucle pour supprimer les lignes non significatives pour le traitement
    For i = derLig To 2 Step -1
        If Trim(Cells(i, "K")) = "" Or Trim(Cells(i, "D")) = "Client" Then
            Rows(i).Delete
        End If
    Next i
    derLig = Range("R" & Rows.Count).End(xlUp).Row
    'boucle pour supprimer les lignes selon demande après calcul et enregistrement des somme et quantité par Client
    For i = derLig To 2 Step -1
        somme = somme + Cells(i, "R")
        qte = qte + Cells(i, "O")
        If Cells(i, "K") <> Cells(i - 1, "K") Then
            Cells(i, "E") = somme
            Cells(i, "F") = qte
            somme = 0
            qte = 0
        Else
            Rows(i).Delete
        End If
    Next i
End Sub

Bonjour Raja

ta macro fonctionne bien sur l'exemple. Après, le tableau brut (3500 lignes) est tellement sale qu'il y a des bugs que j'essaie de corriger

merci de ton aide

Re,

Essaye d'analyser le problématique du fichier original et adapte la macro.