Copier/coller des valeurs en itérant sur les colonnes
Bonjour à vous tous,
Je suis débutant en macro et voici mon problème :
Je voudrait copier/coller des valeurs de mes colonnes en Feuil1 toutes les n colonnes dans la Feuil2. (toutes les 3 colonnes pour être plus précis).
Ce que je voudrais que ma macro fasse :
je suis en Feuil1, je copie C1:C12 en Feuil2 à partir de D1, ensuite je repasse en Feuil1 pour copier D1:D12 en Feuil2 G1 qui est 3 colonnes plus loin que D1 de la Feuil2 !
J'ai fait une boucle qui copie, par exemple, 10 fois ces listes (C1:C12) et (D1:D12) toutes les 3 colonnes. Mon problème réside dans l'itération toute les 3 colonnes ! Je pense à une boucle dans une boucle mais je ne sais pas comment faire.
Concrètement je copie C1:C12 de Feuil1 dans la Feuil2 en 'Colonne 1' (avec 'Colonne 1' qui prend le caractère D, G, , J, M, lettre+3 ...)
Merci
Mon maigre code:
Sub macro()
For i = 1 To 10
Sheets("Feuil1").Select
Range("C1:C12").Copy Destination:=Sheets("Feuil2").Range("D1")
Sheets("Feuil1").Select
Range("D1:D12").Copy Destination:=Sheets("Feuil2").Range("G1")
Next i
End Sub
Bonjour,
Sub macro()
Dim i As Byte
For i = 0 To 9
Sheets("Feuil1").Cells(1, i + 3).Resize(12).Copy Destination:=Sheets("Feuil2").Cells(1, 3 * i + 4)
Next i
End SubA+
Salut,
Merci beaucoup pour ta réponse : j'ai modifié en :
Sub macro()
Dim i As Byte
For i = 0 To 9
Sheets("Feuil1").Cells(1, 3).Resize(12).Copy Destination:=Sheets("Feuil2").Cells(1, 6 * i + 4)
Sheets("Feuil1").Cells(1, 4).Resize(12).Copy Destination:=Sheets("Feuil2").Cells(1, 6 * i + 7)
Next i
End Sub
Je ne connaissait pas encore 'Cells' et c'est très pratique ! merci
Bonne journée