XL 2013 Transposer colonnes en lignes

[erics83]

Bonjour,

J'ai un fichier avec plusieurs données : un article peut aller sur plusieurs "destinations". Ces destinations sont en colonne. J'aimerai n'avoir plus que 1 ligne pour chaque article. Donc j'ai commencé par faire un copier/transposé mais j'ai plus de 10000 articles.....donc je souhaitais savoir si on pouvait "automatiser".....

Merci pour votre aide,

 

[vgendron]

Hello

une solution par macro en PJ

 

[sylvanu]

Bonjour Eric, vgendron
Un essai à tester en PJ avec :

Sub transposition()
    Dim T, Tout, L, i, j, Article, T0
    T0 = Timer
    T = [A1].CurrentRegion
    ReDim Tout(UBound(T, 1) * UBound(T, 2), 1)
    L = 0
    For i = 2 To UBound(T)
        Article = T(i, 1)
        For j = 2 To UBound(T, 2)
            If T(i, j) = "" Then Exit For
            Tout(L, 0) = Article: Tout(L, 1) = T(i, j)
            L = L + 1
        Next j
    Next i
   [S2].Resize(UBound(Tout, 1), 1 + UBound(Tout, 2)) = Tout
   MsgBox "Exécuté en " & Round(Timer - T0, 3) & "s"
End Sub

Sur mon vieux PC, les 10000 articles sont traités en 0.6s.

 

[erics83]

Merci sylvanu !!!

Une fois de plus, cela fonctionne parfaitement et j'ai compris la logique !!

MERCI
Eric

 

[erics83]

Hello

une solution par macro en PJ

Merci vegendron,

Je n'avais pas vu votre réponse (je n'avais pas "rafraichi")....c'est la même logique que sylvanu, mais avec une petite variante, donc j'ai aussi compris le code...MERCI.

Merci pour votre aide,
Eric