Formule recopie cellules excel

Bonjour,

Avec Excel sur Windows solution rapide

Option Explicit
'-----------------
Sub xxx()
Dim Col As Byte, Derlig As Integer, Ligvid As Long, Tablo
    Range("F2:F500000").Clear
    For Col = 1 To 5
        Derlig = Columns(Col).Find(what:="*", searchdirection:=xlPrevious).Row
        Tablo = Range(Cells(1, Col), Cells(Derlig, Col))
        Ligvid = Columns("F").Find("", Range("F1"), xlValues).Row
        Cells(Ligvid, "F").Resize(UBound(Tablo), 1) = Tablo
    Next

End Sub

restitution à partir de F2 (en f1 entêté par ex: compil)

"Une formule est elle adaptée ?" Non ; aucune.

Merci. Voici la solution

Sub concat()

For i = 2 To ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 1).Value

Next i

For i = 2 To ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 2).Value

Next i

For i = 2 To ActiveSheet.Range("C" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 3).Value

Next i
For i = 2 To ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 4).Value

Next i
For i = 2 To ActiveSheet.Range("E" & Rows.Count).End(xlUp).Row + 1

derlignec = ActiveSheet.Range("F" & Rows.Count).End(xlUp).Row + 1
Cells(derlignec, 6).Value = Cells(i, 5).Value

End Sub

Bonjour chennec, Yoyo

" les valeurs apparaissent les unes à la suite des autres "

C'est à dire triées dans l'ordre croissant des x colonnes ?

oui c'est bien ça
merci d'avance

Bonjour,

vous voulez faire apparaître les valeurs de plusieurs colonnes dans une seule et unique colonne, c'est ça ?