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

Fermé

Nicolaroute - 11 oct. 2019 à 08:21
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 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 croisé dynamique - Guide
Tableau ascii - Guide
Copie cachée - Guide
Comment imprimer un tableau excel sur une seule page - Guide
Tableau word - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
11 oct. 2019 à 09:06

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
11 oct. 2019 à 10:29

Oui, je copie les valeurs et les formats

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
11 oct. 2019 à 11:29

merci de joindre le classeur

Discussions similaires

lien copié

Reporter valeur sur autre feuille avec critere

"L'indice n'appartient à la sélection" + VBA

Comment retrouver des lien copier sur sont téléphone

Trouver le nom d'un tableau avec sa photo.

Discussions similaires

Newsletters