Copier coller onglet
Bonjour,
Je me suis faite une macro pour copier une plage de l'onglet "Importation" vers plusieurs onglets. Ça me semble pas la méthode la plus efficace, car j'ai utilisé beaucoup de select. Des suggestions ? Merci !
Sub deplacer_importation()
Application.ScreenUpdating = False
Sheets("Importation").Select
Columns("A:AK").Select
Selection.Copy
Sheets("PEM").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("SPOT").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("TIME SAVER").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("SOUDURE").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("FINITION").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("ASSEMBLAGE").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("PLIAGE").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Importation").Select
Range("A1").Select
'MsgBox "Copier données de chaque département terminé"
Application.ScreenUpdating = True
End Sub
Bonsoir
A voir
Sub deplacer_importation()
Application.ScreenUpdating = False
Sheets("Importation").Columns("A:AK").Copy Sheets("PEM").Range("A1")
Sheets("Importation").Columns("A:AK").Copy Sheets("SPOT").Range("A1")
Sheets("Importation").Columns("A:AK").Copy Sheets("TIME SAVER").Range("A1")
Sheets("Importation").Columns("A:AK").Copy Sheets("SOUDURE").Range("A1")
Sheets("Importation").Columns("A:AK").Copy Sheets("FINITION").Range("A1")
Sheets("Importation").Columns("A:AK").Copy Sheets("ASSEMBLAGE").Range("A1")
Sheets("Importation").Columns("A:AK").Copy Sheets("PLIAGE").Range("A1")
Sheets("Importation").Columns("A:AK").Copy Sheets("Importation").Range("A1")
'MsgBox "Copier données de chaque département terminé"
Application.ScreenUpdating = True
End SubBye
Salut Patty,
J'ai eu une erreur sur la première ligne la première fois que je l'ai roulé, mais la 2e tout fonctionnait bien.
Merci !