copie automatisée de tableaux mensuels

Campagnou

XLDnaute Nouveau
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
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Bonsoir

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

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas