copie tableau avec macro

[julienha]

Bonjour,
dans le fichier ci-joint composer de mini-tableau de 3 lignes, j'aimerais apres chaque execution d'une macro copier le dernier mini-tableau, 3 lignes plus bas.
En fait, j'aimerais que chaque execution de macro (meme à la suite), crée plusieurs mini-tableau à la suite (et n'écrase pas le dernier).

merci bcp

 

[mromain]

Re : copie tableau avec macro

bonjour julienha,

voici une macro (adaptée à ton classeur) qui copie le dernier tableau à la suite.

Sub test()
Dim zone As Range
Set zone = Range("A" & Rows.Count).End(xlUp)
While zone.Row Mod 3 <> 1
    Set zone = zone.Offset(-1, 0)
Wend
zone.Offset(-3, 0).Resize(6, 8).Copy zone.Offset(3, 0)
End Sub

a+

 

[soenda]

Re : copie tableau avec macro

Bonjour le fil, julienha

Un exemple parmis d'autres

Sub b()
    With Feuil1.Range("A" & [a65530].End(xlUp).Row).CurrentRegion.Resize(3)
        .Copy .Offset(6)
    End With
End Sub

A plus

Edition : Bonjour mromain (je n'avais pas rafraîchis)

 

[pierrejean]

Re : copie tableau avec macro

bonjour julienha

Vois si cela te convient

NB: le tableau doit contenir une valeur dans 1ere colonne 1ere ligne

Edit: Salut mromain salut soenda

 

[julienha]

Re : copie tableau avec macro

merci bcp pour votre aide