copie automatisée de tableaux mensuels

[Campagnou]

Bonjour à tous,

Voila je voudrais automatiser la taches suivante: la copie de valeurs situées dans un tableau sur une feuille vers une autre avec en bonus que chaque nouvelles copies soit décalées de 5 ou 6 lignes. Tout cela afin d'archiver ses tableaux mensuelle sur l'année.

Si quelqu'un à une idée ou une piste je suis preneur.

D'avance merci pour votre attention.

Cdt

 

[Nairolf]

Salut,

Essaye avec le fichier joint (avec code vba).

 

[Campagnou]

Bonjour Nairolf,

C'est nickel merci à toi c'est exactement se qu'il me fallait.

Cdt

 

[Lone-wolf]

Bonsoir

Nairolf, comme ceci c'est quand même beaucoup mieux.

Option Explicit

Private Sub CommandButton1_Click()
Dim plage As Range

    Application.ScreenUpdating = False

    Feuil2.Range("B7:D41").Copy

    With Sheets("Archivage")
        Set plage = .Range("B1048576").End(xlUp).Offset(5, 0)
    End With
    plage.PasteSpecial Paste:=xlPasteAll
  
    Application.CutCopyMode = False
    'Pour enlever la sélection
    Application.Goto Sheets("Archivage").Range("a1")
End Sub