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

- - Dernière réponse : michel_m
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
- 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.
Afficher la suite 

1 réponse

Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2812
0
Merci
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

Oui, je copie les valeurs et les formats
michel_m
Messages postés
15934
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 octobre 2019
2812 -
merci de joindre le classeur
Commenter la réponse de michel_m