CHARPENTIER
XLDnaute Nouveau
Bonjour à tous,
Après des heures incalculable de recherche, je me décide à poster pour la première fois sur le forum car la je désespère.
Je suis à la recherche d'une macro qui a pour but de copier une plage de donnée et de la coller dans un tableau dédié sans supprimer les tableaux qui sont en dessous.
Je m'explique en espérant être claire, et je vous mets le fichier en pj.
Le but est de faire un bon de commande.
Dans la feuille "Bon_commande" il y a 3 tableaux qui une fois remplit comme l'indique le nom servira de bon de commande.
Chaque tableau correspond à une onglet:
> tableau jaune BON DE COMMANDE LAME = feuille LAMES
> tableau bleu BON DE COMMANDE PROFILS STANDARD 3M = feuille Zwcad_3M
> tableau vert BON DE COMMANDE PROFILS STANDARD 3M =ZWCAD_SurMesure
Le but est de copier les lignes des feuilles respectives et de les coller dans le bon tableau.
Pour l'instant j'ai cette macro mais elle supprime les tableaux en dessous mais copie bien les lignes de la feuille lames dans le tableau concerné.
Sub copie_tableau()
derLig = Sheets("LAMES").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("LAMES").Range("A2:F" & derLig).Copy Destination:=Sheets("Bon_commande").Range("A6")
End Sub
Un grand merci d'avance pour votre aide.
Après des heures incalculable de recherche, je me décide à poster pour la première fois sur le forum car la je désespère.
Je suis à la recherche d'une macro qui a pour but de copier une plage de donnée et de la coller dans un tableau dédié sans supprimer les tableaux qui sont en dessous.
Je m'explique en espérant être claire, et je vous mets le fichier en pj.
Le but est de faire un bon de commande.
Dans la feuille "Bon_commande" il y a 3 tableaux qui une fois remplit comme l'indique le nom servira de bon de commande.
Chaque tableau correspond à une onglet:
> tableau jaune BON DE COMMANDE LAME = feuille LAMES
> tableau bleu BON DE COMMANDE PROFILS STANDARD 3M = feuille Zwcad_3M
> tableau vert BON DE COMMANDE PROFILS STANDARD 3M =ZWCAD_SurMesure
Le but est de copier les lignes des feuilles respectives et de les coller dans le bon tableau.
Pour l'instant j'ai cette macro mais elle supprime les tableaux en dessous mais copie bien les lignes de la feuille lames dans le tableau concerné.
Sub copie_tableau()
derLig = Sheets("LAMES").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("LAMES").Range("A2:F" & derLig).Copy Destination:=Sheets("Bon_commande").Range("A6")
End Sub
Un grand merci d'avance pour votre aide.