Discussion :

[tellierbe]

* 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[geogeo70]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tellierbe]

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

[joe.levrai]

Bonjour,

pour gérer dynamiquement la taille du tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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