Autres Formule ou macro?

[maart]

Bonjour,

Je voudrais ranger dans une seule colonne descendante mes cellules A:E comme dans mon exemple.

Merci

 

[soan]

Bonjour maart,

ton fichier en retour ; fais Ctrl e ➯ travail effectué ! 😊

Option Explicit

Sub Essai()
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row
  If n = 1 And IsEmpty([A1]) Then Exit Sub
  Dim i&, j&, k&
  k = 1: Application.ScreenUpdating = 0
  For i = 1 To n
    For j = 5 To 1 Step -1
      Cells(k, 6) = Cells(i, j): k = k + 1
    Next j
  Next i
End Sub

soan

 

[Rouge]

Bonjour,

Formule en F1 et à tirer vers le bas

=INDEX($A$1:$E$4;ARRONDI.SUP(LIGNE()/5;0);SI(MOD(LIGNE();5)=1;5;SI(MOD(LIGNE();5)=2;4;SI(MOD(LIGNE();5)=3;3;SI(MOD(LIGNE();5)=4;2;1)))))

Cdlt

 

[maart]

Bonjour,

Merci, c'est parfait.
Bon dimanche