copie tableau avec macro

mromain

XLDnaute Barbatruc

• 23 Septembre 2009

• #2

Re : copie tableau avec macro

bonjour julienha,

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

Code:

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+

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 23 Septembre 2009

• #3

Re : copie tableau avec macro

Bonjour le fil, julienha

Un exemple parmis d'autres

Code:

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)

 

Dernière édition: 23 Septembre 2009

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Septembre 2009

• #4

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

 

Pièces jointes

• teststrat.zip

  12.3 KB · Affichages: 40

Vote positif 0 Vote négatif

J

julienha

XLDnaute Occasionnel

• 24 Septembre 2009

• #5

Re : copie tableau avec macro

merci bcp pour votre aide

 

Vote positif 0 Vote négatif