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

Question

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.

michel_m · Answer

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.frDans 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

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

1 réponse

Discussions similaires