Aide sur une macro incomplete

Version imprimable

* Bonjour *

J’ai créé un tableau qui se situe en (A1 : H10) je voudrais à mesure des semaines que mon tableau soit automatiquement recopié en dessous dès qu’il trouve une ligne vide et en laissant une ligne vide à chaque fois entre les tableaux, pour le moment j’en suis là : mais cela ne fonctionne pas ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Test1() ' ' Test1 Macro ' nombreligne = 200 c = 1 Do While Not IsEmpty(Cells(c, 2)) c = c + 1 Loop Rows("1:10").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False Range("J10").Select End Sub
merci pour vos idées.

bonsoir,

un peu brouillon votre code... un mélange de code et ça ne peut fonctionner. Vous n'avez surtout pas sélectionner l'endroit de collage, vous collez sur la zone de copie!

Voici un exemple de copie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub mamacro()
 
    Dim ligne As Integer, derniereligne As Integer
    Dim dercol As Integer
    Dim ws As Worksheet
    Dim rg As Range
 
    Set ws = ActiveSheet 'ou sheets("nom de feuille")
 
    ligne = 23 'ligne de debut de copie par exemple
 
    'definition de la zone à copier
    derniereligne = ws.Cells(65000, 1).End(xlUp).Row
    dercol = ws.Cells(ligne, 10000).End(xlToLeft).Column
 
    Set rg = Range(ws.Cells(ligne, 1), ws.Cells(derniereligne, dercol)) 'zone à copier
    rg.Copy
 
    'coller une ligne en dessous
    ws.Cells(derniereligne + 2, 1).PasteSpecial Paste:=xlPasteAll 'vous aviez oublié de definir où copier!
    Application.CutCopyMode = False
 
End Sub

Vous pouvez rechercher la ligne vide avec votre boucle, mais j'ai utilisé la propriété "end" des "range".
A vous...

salutations
geogeo

Code:

1
2
3
Sub Test1()
    Range("A1:H10").Copy Cells(Rows.Count, 1).End(xlUp).Offset(2,0)
End Sub

27/10/2016, 11h54
tellierbe

Macro pour coller un tableau avec une ligne d'espace

Un grand merci à Menhir qui à répondu exactement à mes attentes :)

et pour geogeo70 merci pour ton code, mais celui de Menhir est court et au top :)

un grand merci à vous deux.
Bernard

Bonjour,

pour gérer dynamiquement la taille du tableau
Code:

1 2 3 Sub toto() Cells(1, 1).CurrentRegion.Copy Cells(Rows.Count, 1).End(xlUp)(3) End Sub