Copier - Coller Transposer "en escalier"

[bloublou]

Bonsoir à tous,

Je reviens avec encore un pb de copier coller transposé en escalier.
Plusieurs personnes m'ont déjà aidé sur des sujets similaires.
Je pensais avoir réussi à l'adapter mais ca écrase des données au milleu de la macro.

En partant d'un tableau je voudrais présenter ce tableau dans un autre sens

Je mets un petit fichier qui sera plus explicite

Si quelqu'un peut m'aider ?

Merci

BlouBlou

 

[Guest]

Re : Copier - Coller Transposer "en escalier"

Bonjour,

Voir fichier joint la macro HTranspose ci-dessous:

Sub HTranspose()
Dim Tailles As Variant, datas As Variant
Dim lg As Long, nb As Long
Dim fruit As String, nombre As Integer
    Tailles = Sheets("Base").Range("B1:AD1").Value
    For lg = 2 To Sheets("Base").Range("AE" & Rows.Count).End(xlUp).Row
        datas = Sheets("Base").Range("B" & lg & ":AD" & lg).Value
        nombre = Sheets("Base").Range("A" & lg)
        fruit = Sheets("Base").Range("AE" & lg)
        With Sheets("Resultat").Range("A" & Rows.Count).End(xlUp)(2)
            nb = UBound(datas, 2)
            .Resize(nb) = fruit
            .Offset(, 1).Resize(nb) = nombre
            .Offset(, 2).Resize(nb) = Application.Transpose(Tailles)
            .Offset(, 3).Resize(nb) = Application.Transpose(datas)
        End With
    Next lg
End Sub

A+

[edit] hello Monique tu as la formule toujours aussi efficace
A+++

 

[Monique]

Re : Copier - Coller Transposer "en escalier"

Bonjour,

Par formules

 

[bloublou]

Re : Copier - Coller Transposer "en escalier"

Bonjour Le forum,

Merci Hasco ca marche bien mici mici
Et Monique merci aussi par contre, par formules je comprends pas la logique...

MOD(LIGNE()-2;29) => je comprends pas

=DECALER(Base!$B$2;$B2-1+(LIGNE()-1>116)*4+(LIGNE()-1>116*2)*4+(LIGNE()-1>116*3)*4+(LIGNE()-1>116*4)*4+(LIGNE()-1>116*5)*4+(LIGNE()-1>116*6)*4+(LIGNE()-1>116*7)*4;MOD(LIGNE()-2;29)) => whaaaaaa

Merci

BlouBlou