Remplissage auto d'un 2eme tableau

Le 18/01/2018 à 18:34

Bonjour,

Mon problème consiste à remplir automatiquement un deuxième tableau de mise en forme différente sur une seconde feuille (et qui doit rester sous cette forme). et surtout de transposer les données tenant sur une ligne en 2 lignes (ici dans l'exemple mais ce sera plus) dans le deuxième tableau.

Le client A prend un article (java) ref 40 et un article (daphni) ref S , tout tient sur une ligne dans le premier tableau mais comment le transposer en deux lignes sur le 2 eme tableau , A prend java ref 40 sur une ligne et A prend daphni ref S sur une 2eme.

Dans le fichier joint j'ai mis le résultat souhaité pour être plus clair

Ca me paraissait simple au début et en fait je sèche........

Merci beaucoup si vous avez la soluce, et désolé si dès fois la solution avait déjà été donnée

12test-export.xlsx (14.27 Ko)

Le 18/01/2018 à 19:08

Bonsoir,

Une proposition à étudier.

Les données sont mises sous forme de tableaux (Excel 2007+).

Cdlt.

10test-export.xlsm (26.46 Ko)

Option Explicit

Public Sub Consolidate_Data()
Dim ws As Worksheet
Dim lo As ListObject
Dim tbl, Arr()
Dim rStart As Range
Dim I As Long, J As Long, k As Long

    Application.ScreenUpdating = False

    With ActiveSheet.ListObjects(1)
        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
        Set rStart = .InsertRowRange.Cells(1)
    End With

    Set ws = Worksheets("SECTION")
    tbl = ws.ListObjects(1).Range

    For I = 2 To UBound(tbl)
        For J = 2 To UBound(tbl, 2)
            If tbl(I, J) <> "" Then
                ReDim Preserve Arr(3, k + 1)
                Arr(0, k) = tbl(I, 1)
                Arr(1, k) = tbl(1, J)
                Arr(2, k) = tbl(I, J)
                k = k + 1
            End If
        Next J
    Next I

    rStart.Resize(UBound(Arr, 2), 3).Value = Application.Transpose(Arr)

End Sub

Le 18/01/2018 à 21:19

merci je vais tester ca

Le 19/01/2018 à 18:27

Bonjour,

Merci cela m'a permis de bien avancer sur mon tableau, j'ai compléter avec des formules , ça marche mais je me demande si il n'y pas moyen d'optimiser pour que ce soit un peu plus rapide. surtout au niveau du calcul des quantités (colonne X de la feuille export) , pour ne pas faire une formule ou j'ai besoin de retaper manuellement les articles à l’intérieur.

Merci

9test-export-1.xlsm (28.97 Ko)

Le 19/01/2018 à 18:38

bonjour

salut Jean-Eric

pas de VBA

Excel dispose d'une fonctionnalité faite pour toi. Voir "unpivot" sur le web

en gros, par Power Query, avec une modification "supprimer le tableau croisé des autres colonnes"

c'est génial !

c'est ensuite automatique, d'un seul clic.

13test-export.xlsx (23.66 Ko)

Le 24/01/2018 à 11:56