Transposition spécifique

[elfif]

Bonjour,

Je cherche le moyen de transposer des valeurs qui sont en tableau vers une disposition en colonne unique, les unes sous les autres.
Exemple, je voudrais transformer ces lignes :
1.1 1.2 1.3 1.4
2.1 2.2 2.3 2.4
3.1 3.2 3.3 3.4
...

en :
1.1
1.2
1.3
1.4
2.1
2.2
2.3
2.4
3.1
3.2
3.3
3.4
...

Je ne sais pas comment faire, doit y avoir moyen de créer un petite macro, mais je suis une bille en vba..
Si vous avez une idée, je suis preneur

Merci d'avance

[jfontaine]

Bonjour,

Cette macro copie la plage A13 dans la colonne de cellule active

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Transpose()
 
Dim i As Long
 
i = 1
 
For Each cel In Range("A1:D3")
 
    ActiveSheet.Cells(i, ActiveCell.Column).Value = cel.Value
    i = i + 1
 
Next
 
End Sub

[elfif]

Bah voilà... Trop fort
Merci beaucoup, j'en avais vraiment marre de batailler !

[djib29]

Bonjour,

Par formule c'est aussi faisable. Si le tableau de valeurs est en A1:D3 et la liste de valeurs en colonne commence en A6, il suffit d'écrire la formule suivante en A6:

Code :

=INDEX($A$1:$D$3;ENT((LIGNE(A6)-LIGNE($A$6))/4)+1;MOD(LIGNE(A6)-LIGNE($A$6);4)+1)

puis la copier-coller sur 12 lignes. Si vous avez plus de 4 colonnes, remplacer les deux 4 dans la formule par le nombre de colonnes.