Copier 37x le même tableau sur une feuille Excel

Marsh Posté le 25-09-2011 à 16:27:01

Bonjour,

Je dois copier 37 fois le même tableau (fixe) l'un en-dessous de l'autre, je voudrai le faire via une macro car manuellement c'est fastidieux.

Pour copier le tableau, je comptais utiliser une variable "i" avec la boucle "For i = i to 37" mais mon code ne fonctionne pas:

'Dim i As Integer
'Dim R As Integer
'
'R
'R = R + 30
'
' For i = i To 3
'
' Range("A1:L28" ).Select
' Selection.Copy
' ActiveWindow.SmallScroll Down:=12
' R = Range("A31" ).Select
'
'' Range("A31" ).Select
' ActiveSheet.Paste
' ActiveCell.Offset(R, 0).Select
'
' Next i
'
'End Sub

Je ne suis pas sûr d'avoir bien placé lmon R, j'ai un peu de mal à comprendre comment je dois demander à ma macro de descendre de 30 lignes une fois le tableau copié?

Si vous avez de meilleures propositions n'hésitez pas.

Bien à vous

Marsh Posté le 25-09-2011 à 16:27:01

Marsh Posté le 25-09-2011 à 19:13:15

Salut, de façon bestiale

Option Explicit

Sub Tst()
Dim i As Long
For i = 1 To 37
Feuil1.Range("A1:L28" ).Copy Feuil1.Range("A" & i * 28 + 1)
Next i
Application.CutCopyMode = False
End Sub

Feuil1 étant le CodeName par défaut de l'onglet

Message édité par kiki29 le 25-09-2011 à 19:18:23

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Marsh Posté le 25-09-2011 à 22:21:27

Super ça marche du tonnerre en plus la macro est simple mais je n'y aurait jamais pensé. Encore merci

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *