Excel - Copier Données Colonnes en Lignes

[Titus]

Bonjour à tous,

pourrait-on me dire comment écrire une macro qui transpose le contenu de 3 colonnes en lignes, en intercalant à chaque fois :

Nous avons :



COLONNE 1 COLONNES 2 COLONNES 3
a b c
d e f



et on veut :

COLONNE 1
a
b
c
d
e
f




Merci pour votre aide !

Titus

 

[ChTi160]

Salut titus
en pièce jointe une possibilité en VBA à adapter sûrement
Amicalement
Jean marie [file name=TransposeV1.zip size=7851]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TransposeV1.zip[/file]

 

[sousou]

Bonjour Titus

Un exemple pour 6 colonnes et deux lignes facile à modifier

Sub test()

Set macellule = Range('a1') 'par exemple
col = 0
nbcol = 6
lg = 0
nblg = 2
Columns(1).EntireColumn.Insert
For lg = 0 To nblg
For col = 0 To nbcol - 1
Range('a1').Offset(col + lg * nbcol, 0) = macellule.Offset(lg, col)
Next
Next
End Sub
🙂

 

[Titus]

Merci à tous les deux pour votre aide ! Ca fonctionne comme je cherchais !