XL 2016 supprimer doublons et additionner les données

[fbi77720]

Bonjour,
je rencontre un problème.
Mon fichier est liste de pièces mais il se trouve que pour chaque pièce, je retrouve 3 lignes de données et j'aurai aimé tout généralisé en 1 seule ligne.
Est-il possible de créer un programme VBA pour réussir ceux-ci ?

Je vous joint mon fichier excel

 

[JHA]

Bonjour à tous,

Un essai par TCD

JHA

 

[fbi77720]

Je sais que par TCD cela fonctionne mais j'ai développer un programme d'extraction de donnée qui fonctionne sur un tableau et non sur un TCD.
Voila pourquoi je cherche a supprimer mes doublons mais à garder les données

 

[Dranreb]

Bonjour.
D'autres vous proposeront d'utiliser Power Query, moi je vous propose un complément offrant une fonction Gigogne facile à utiliser.

 

[Dranreb]

Exemple de code qui supprime les doublons sur une seconde feuille contenant une copie du tableau lors de son activation :

Option Explicit
Private Sub Worksheet_Activate()
   Dim LOt As ListObject, Tech As SsGr, Ref As SsGr, T(), L As Long, C As Long, DifL As Long
   Set LOt = Feuil5.ListObjects(1)
   ReDim T(1 To LOt.ListRows.Count, 1 To LOt.ListColumns.Count)
   For Each Tech In Gigogne(LOt, 1, 2)
      For Each Ref In Tech.Co
         L = L + 1
         T(L, 1) = Tech.Id
         T(L, 2) = Ref.Id
         For C = 3 To UBound(T, 2)
            T(L, C) = Ref.Somme(C): If T(L, C) = 0 Then T(L, C) = Empty
            Next C, Ref, Tech
   Set LOt = Me.ListObjects(1)
   DifL = L - LOt.ListRows.Count
   If DifL > 0 Then
      LOt.HeaderRowRange.Offset(1).Resize(DifL).Insert xlShiftDown
   ElseIf DifL < 0 Then
      LOt.HeaderRowRange.Offset(1).Resize(-DifL).Delete
      End If
   LOt.DataBodyRange.Value = T
   End Sub

 

[fbi77720]

une autre solution est un programme d'extraction de donnée d'un tableau croisé dynamique dans une nouvelle feuille.
Pouvez vous m'aidez ?