EXCEL - Comment copier le contenu de colonnes

Question

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

Afficher la suite

Titus · Answer

La réponse (légèrement à 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

EXCEL - Comment copier le contenu de colonnes

1 réponse

Votre réponse

Discussions similaires

Newsletters