Report de données

Bonjour,

Mon problème est simple. Mon fichier Excel est compose de deux feuilles. Une feuille test ou l'on veut récupérer des informations et une feuilles données.
Je veux remplir le tableau de la feuille test en indiquant les différents types(IM150, SHP100...) et la quantité correspondante en supprimant les doublons.
Une information importante est que la colonne type dans données ne se trouve pas forcément au même emplacement ( ici colonne F).

Merci de votre aide,

Pièce jointe 582457

Bonjour

ce n'est pas un tableau croisé dynamique ça ?? en ligne les code et les quantité en valeur ?

si c'est dans le cadre d'un projet qui nécessite VBA
tu peux faire avec les dictionnaires
à tester

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub verif() Dim unique As New Collection Dim F1 As Worksheet Dim F2 As Worksheet Application.ScreenUpdating = False Set F1 = Sheets("Donnees") Set F2 = Sheets("Test")   Set d = CreateObject("Scripting.Dictionary") TblBD = F1.Range("D4:F" & F1.[D65000].End(xlUp).Row) For i = 1 To UBound(TblBD) clé = TblBD(i, 3) d(clé) = d(clé) + TblBD(i, 1) Next i F2.[B7].Resize(d.Count) = Application.Transpose(d.keys) F2.[C7].Resize(d.Count) = Application.Transpose(d.items) Application.ScreenUpdating = True F2.Select End Sub

---