XL 2016 Boucle de copie pour colonne

[BBdoc31]

Bonjour à tous,

J'essaie de faire une boucle de copie de colonne en vba selon un nombre X d'itération

dans l'enregistreur de macro, j'obtiens ceci :

    Columns("G:H").Select
    Range("G2").Activate
    Selection.Copy
    Range("I1").Select
    ActiveSheet.Paste
    Range("K1").Select
    ActiveSheet.Paste
    Range("M1").Select
    ActiveSheet.Paste

que j'essaye d'adapter dans cette macro :

    Dim drLig As Long
    Dim n As Integer
    drLig = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row

    Range("H6:H25").ClearContents
    Range("H33:H60").ClearContents
    Range("H5").ClearContents
    Range("G2:G3").ClearContents
    Range("G1:H1").ClearContents
    w = drLig - 3
    x = 4
    y = 4
    Z = 7
    For n = 1 To w

    Columns("G:H").Copy
    Range(Z & 1).Value = Range(Z + 2 & 1) + Range(Z + 1 & 1)
    Range(Cells(1, Z + 2)).Paste

Mais je ne suis vraiment pas doué car j'ai toujours un blocage.

 

[vgendron]

Hello

voici un code pour JUSTE recopier les colonnes G et H w fois

 Sub recopie()

w = 3 'nb d'itérations de copie

'copie des colonnes G et H
For n = 9 To 9 + 2 * (w - 1) Step 2 '9 = colonne I
    Columns("G:H").Copy Destination:=Columns(n)
Next n

End Sub

 

[BBdoc31]

Merci beaucoup, je galérais pour cette partie du code.

Sub Création_Matelas()
'
' Création Macro
'
    Dim drLig As Long
    Dim n As Integer
    drLig = Sheets("Feuil1").Range("C" & Rows.Count).End(xlUp).Row

    Range("H6:H25").ClearContents
    Range("H33:H60").ClearContents
    Range("H5").ClearContents
    Range("G2:G3").ClearContents
    Range("G1:H1").ClearContents
    w = drLig - 3
    x = 4
    y = 4
    Z = 7
    For n = 9 To 9 + 2 * (w - 1) Step 2
    Columns("G:H").Copy Destination:=Columns(n)
        Cells(x - 2, Z).Value = Sheets("Feuil1").Cells(y, x).Value
        Cells(x - 1, Z).Value = Sheets("Feuil1").Cells(y, x + 3).Value
        Cells(x + 53, Z + 1).Value = Sheets("feuil1").Cells(y, x + 5).Value
        Z = Z + 2
        y = y + 1
   Next n
End Sub

Par contre une fois le code intégré, j'ai la première colonne qui est répété à la fin

 

[BBdoc31]

Toujours mon problème de la première colonne à la fin.

Si quelqu'un pouvait m'expliquer pourquoi et comment le résoudre.

Merci.