EXCEL - Comment copier le contenu de colonnes

Titus -  
 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
Configuration: Excel 2002

1 réponse

  1. Titus
     
    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
    0