Copie d'une sélection d'un tableau sur une autre feuille
Nicolaroute
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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.
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
Bonjour,
Tu copies uniquement des données ou en plus des formats (police, couleurs...) ?
montre nous un exemple. Pour cela:
Dans l'attente
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
18903
Date d'inscription
Statut
Contributeur
Dernière intervention
3 318
merci de joindre le classeur
