Generer une ligne avec somme pour references identiques

Bonjour à tous,

Ceci est mon premier post

Dans mon fichier il y deux colonnes; une avec des références classés par ordre croissant et l'autre avec des montants.

Je souhaiterai faire une macro afin de générer une ligne sous les références étant identiques:

-qui reprennent la ref des lignes ayant la même référence et faisant la somme des montants pour ces références, et ceci pour toutes les références.

Je suis débutant en VBA.

17test5.xlsm (66.05 Ko)

une ébauche de mon code douteux ^^ :

Sub insert_row_with_sum_for_specific_ref()

Dim sh As Worksheet

Dim j As String

j = 1

i = 0

Set sh = ActiveWorkbook.Sheets("sheet1")

'While sh.colomn("B") = ""

' If then

' Elseif

'End If

' Wend

'j'imagine qu'il faut utiliser insert row

End Sub

Merci par avance pour vos réponses.

Cordialement,

Bonjour,

Mets tes données sous forme de tableau (avec ligne d'en-tête) et crée un tableau croisé dynamique (TCD).

Pas de VBA.

Cdlt.

Merci Jean Eric pour ta réponse.

Je vais essayer cette solution.

Bonjour à tous

Une solution par formule dans dans la colonne F : en F2 à recopier en dessous ou mieux, comme déjà dit, après avoir mis sou forme de tableau

=SI(ET(B2<>B3;NB.SI($B$2:B2;B2)>1);SOMME.SI.ENS($E$2:E2;$B$2:B2;B2);0)

avec un format personnalisé pour masquer les zéros (0;;)

EDIT : Colonne à ajouter si tu gardes le bas du tableau. Mais en l'état ce tableau avec 2 structures différentes parait peu exploitable...

13totaux.xlsm (75.19 Ko)
Rechercher des sujets similaires à "generer ligne somme references identiques"