Résolu. Transformer un tableau en une colonne

mutzik à dit:

bonjour,

colle cela dans le module VBA de la feuille en question et lance la macro

Sub transp()
Dim cpt, lastlig
Range("L:L").ClearContents
lastlig = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For cpt = 2 To lastlig
Range("B" & cpt & ":G" & cpt).Copy
Range("L" & Rows.Count).End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Next
End Sub

Cliquez pour agrandir...

hoerwind à dit:

Bonjour et bienvenue sur le forum, salut mutzik,

Une solution par formule, essaie en J2 :

Code:

=DECALER($A$1;ENT((LIGNE()-2)/6)+1;MOD(LIGNE()-2;6)+1)

formule à copier vers le bas

Cliquez pour agrandir...