Autres Formule ou macro?

maart · 13 Juin 2021

Bonjour,

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

Merci

soan · 13 Juin 2021

Bonjour maart,

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

VB:

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 · 13 Juin 2021

Bonjour,

Formule en F1 et à tirer vers le bas

VB:

=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 · 13 Juin 2021

Bonjour,

Merci, c'est parfait.
Bon dimanche

Autres Formule ou macro?

maart

XLDnaute Junior

Pièces jointes

soan

XLDnaute Barbatruc

Pièces jointes

Rouge

XLDnaute Impliqué

maart

XLDnaute Junior

Discussions similaires

Autres Formule ou macro?

maart

XLDnaute Junior

Pièces jointes

soan

XLDnaute Barbatruc

Pièces jointes

Rouge

XLDnaute Impliqué

maart

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency