Trier des données dans un ordre spécifique

Bonjour à tous,

Je suis confronté à un petit problème sous Excel;

J'ai un fichier avec 4 colonnes contenant des données chacunes:

A1 - B1 - C1 - D1

A2 - B2 - C2 - D2

A3 - B3 - C3 - D3

A4 - B4 - C4 - D4

etc etc

Et je voudrais en fait transposer toutes ces données dans une seule colonne de la façon suivante:

A1

A2

A3

A4

B1

B2

B3

B4

C1

C2

C3

C4

D1

D2

D3

D4

etc etc..

Je bloque..

Merci d'avance pour votre aide!

Bonjour,

A mettre dans un module et à adapter.

Sub Tri()
Dim c, l%
With Sheets("Feuil1")
    l = 1
    For Each c In .Range("A1:D" & Range("A" & Rows.Count).End(xlUp).Row)
        .Cells(l, "G") = c
        l = l + 1
    Next c
End With

End Sub

Cordialement

Paaaarfait!

Un grand merci & bon week-end!

Re,

A la relecture de ta demande, je me demande si ma 1ère réponse est correcte.

Je pense que celle-ci répond au plus juste. Un peu plus complexe soit.

Si tu as besoin de commentaires, demande.

Sub Tri2()
Dim a, tmp(), Derl%, i%, j%, c%
With Sheets("Feuil1")
    Derl = .Range("A" & Rows.Count).End(xlUp).Row
    a = .Range("A1:G" & Derl).Value
    Range("G:G").ClearContents
    ReDim tmp(Derl * 4)
    c = 0
    For i = 1 To 4
        For j = 1 To Derl
            tmp(c) = a(j, i)
            c = c + 1
        Next j
    Next i
    .[G1].Resize(UBound(tmp), 1) = Application.Transpose(tmp)
End With
End Sub

Cordialement

Encore merci mais ce n'était pas nécessaire, le premier code fonctionnait parfaitement