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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Copier 37x le même tableau sur une feuille Excel

Coellophysis

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

Publicité

kiki29

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

Coellophysis

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Fichier Excel multiple	[VBA-Excel] Protéger une partie de la feuille par Macro
créer un clavier numérique sous excel	Formule Excel pour suppresion de caractères
excel VB/VBS	copier de excel vers word
Produire un tableau html dynamiquement	[VBA excel] incrémentation et impréssion automatique
Plus de sujets relatifs à : Copier 37x le même tableau sur une feuille Excel

Page générée en 0.025 secondes