Proportionner 1 colonne en 2

[steven45]

Bonjour à tous,

Je recherche un code VBA qui me permettrait de diviser un groupe de colonnes (A,B,C,D,E & F) en 2. Je m'explique : j'ai 50 lignes renseignées sur 6 colonnes ; j'aimerais lorsque je lance la macro, avoir mon tableau divisé en 2 côte à côte, soit 25 lignes sur 12 colonnes.

Merci.

 

[gilbert_RGI]

Re : Proportionner 1 colonne en 2

Bonjour à tous,

Je recherche un code VBA qui me permettrait de diviser un groupe de colonnes (A,B,C,D,E & F) en 2. Je m'explique : j'ai 50 lignes renseignées sur 6 colonnes ; j'aimerais lorsque je lance la macro, avoir mon tableau divisé en 2 côte à côte, soit 25 lignes sur 12 colonnes.

Merci.

Bonjour

un truc dans le genre ?

Sub test()
    Range("A26:F50").Select
    Selection.Cut Destination:=Range("G1:L25")
    [a1].Select
End Sub

ou celui ci

Sub test()
    With ActiveSheet
        w = .Range("a65536").End(xlUp).Row + 1
        Z = .Range("IV4").End(xlToLeft).Column + 1
        Range(Cells(w - 25, 1), Cells(w, 6)).Select
        Selection.Cut Destination:=Range(Cells(1, Z), Cells(25, Z + 6))
        [a1].Select
    End With
End Sub