Transposer en inserant des lignes

Bonjour,

J'ai un tableau avec des milliers de référence en ligne, suivi des numéros de séries. Je souhaite pouvoir les numéros de serie en colonne plutot qu'en ligne. Je penche pour la fonction transposer, seulement cela n’insère

pas les ligne pour y coller les données. Je ne me vois pas le faire à la main.

Comment puis je m'y prendre ?

Un exemple avec le tableau

Bonsoir à tous !

Une proposition via Power Query (nativement intégré à votre version Excel) :

merci d'avoir bucher sur mon problème. Sans explication, pas simple de comprendre.

J'ai trouvé une autre solution que je partage pour d'autre :

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

a coller dans votre feuille, puis lancer et choisir la plage.

Bonsoir à tous de nouveau !

Vous cherchiez une solution.... VBA ?

Concernant Power Query, je ne peux que vous inciter à combler une éventuelle lacune. Il existe des centaines de tutoriels sur le net.

Les "bases" sont facilement accessibles, par simple "clic" qui plus est.

Je prends votre conseil. Effectivement je ne connais que tres peu powr query. il est temps de m'y mettre.

Bonsoir à tous de nouveau !

Le tableau structuré chargé dans Power Query, 3 petits traitements (via des clics) suffisent pour retourner le résultat attendu. Simple.... non ?

Et le code, généré automatiquement (langage M) est pour le moins ramassé :

let
    Source = Excel.CurrentWorkbook(){[Name="t_Data"]}[Content],
    Unpivot = Table.UnpivotOtherColumns(Source, {"Column1"}, "Attribut", "Numéros séries"),
    ColSupp = Table.RemoveColumns(Unpivot,{"Attribut"}),
    ColRenom = Table.RenameColumns(ColSupp,{{"Column1", "Références"}})
in
    ColRenom