Copie d'une sélection d'un tableau sur une autre feuille

Nicolaroute -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 11 oct. 2019 à 11:29

Bonjour,
Je cherche à simplifier mon code VBA pour copier une sélection fluctuante d'un tableau et la recopier
sur une autre feuille pour archive.
Voici mon code :

Dim DernLigne1 As Long, DernColonne1 As Integer

Sheets("bon_de_commande ").Activate
DernColonne1 = Cells(4, Cells.Columns.Count).End(xlToLeft).Column
DernLigne1 = Range("D" & 26).End(xlUp).Row
Dim maPlage1 As Range
Set maPlage1 = Range(Cells(17, 10), Cells(DernLigne1, DernColonne1))
Application.CutCopyMode = False
maPlage1.Copy

Sheets("Final").Activate
ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Rows.Count + 2, 2).Select
ActiveSheet.Paste
Sheets("bon_de_commande ").Activate
Range("H6").Select ' copie le fournisseur
Application.CutCopyMode = False
Selection.Copy
Sheets("Final").Activate
Range("A" & Range("A65000").End(xlUp).Row + 2).Select
ActiveSheet.Paste

Merci pour votre aide, ce code fonctionne mais je voudrais trouver et comprendre en plus simple.

A voir également:

Copie d'une sélection d'un tableau sur une autre feuille
Tableau word - Guide
Comment imprimer un tableau excel sur une seule page - Guide
Trier un tableau excel - Guide
Tableau ascii - Guide
Copie cachée - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

Bonjour,

Tu copies uniquement des données ou en plus des formats (police, couleurs...) ?

montre nous un exemple. Pour cela:

Mettre le classeur sans données confidentielles en pièce jointe sur 
 https://mon-partage.fr
Dans lien de téléchargement
 faire un clic  droit- copier l’adresse du lien   et  le coller dans votre message en cours sur ccm

Dans l'attente

Nicolaroute

Oui, je copie les valeurs et les formats

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

merci de joindre le classeur

Discussions similaires

Copier un lien instagram

Retrouver liens copiés sur le téléphone

copie d'un lien dans le navigateur internet

Votre réponse

Discussions similaires