macro trop lourde

[Jungle]

Bonjour à tous !!!

Voila mon problème aujourd'hui...
J'ai créée une macro mais elle est trop lourde, je m'explique: Quand je lance la macro mon écran se met à "vibrer"...

Je vous met la partie que j'aimerais si possible diminuer.

Sheets("Enregistrer_commande").Select
Range("I29").Select
Selection.Copy
Sheets("Listing").Select
Range("K3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G15").Select
Selection.Copy
Sheets("Listing").Select
Range("Q3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I15").Select
Selection.Copy
Sheets("Listing").Select
Range("S3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G16").Select
Selection.Copy
Sheets("Listing").Select
Range("AB3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G17").Select
Selection.Copy
Sheets("Listing").Select
Range("AI3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I17").Select
Selection.Copy
Sheets("Listing").Select
Range("AK3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G18").Select
Selection.Copy
Sheets("Listing").Select
Range("AR3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I18").Select
Selection.Copy
Sheets("Listing").Select
Range("AT3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G19").Select
Selection.Copy
Sheets("Listing").Select
Range("BA3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I19").Select
Selection.Copy
Sheets("Listing").Select
Range("BC3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G20").Select
Selection.Copy
Sheets("Listing").Select
Range("BJ3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I20").Select
Selection.Copy
Sheets("Listing").Select
Range("BL3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G21").Select
Selection.Copy
Sheets("Listing").Select
Range("BS3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I21").Select
Selection.Copy
Sheets("Listing").Select
Range("BU3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G22").Select
Selection.Copy
Sheets("Listing").Select
Range("CB3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I22").Select
Selection.Copy
Sheets("Listing").Select
Range("CD3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G23").Select
Selection.Copy
Sheets("Listing").Select
Range("CK3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I23").Select
Selection.Copy
Sheets("Listing").Select
Range("CM3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G24").Select
Selection.Copy
Sheets("Listing").Select
Range("CT3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I24").Select
Selection.Copy
Sheets("Listing").Select
Range("CV3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G25").Select
Selection.Copy
Sheets("Listing").Select
Range("DC3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I25").Select
Selection.Copy
Sheets("Listing").Select
Range("DE3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G26").Select
Selection.Copy
Sheets("Listing").Select
Range("DL3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I26").Select
Selection.Copy
Sheets("Listing").Select
Range("DN3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G27").Select
Selection.Copy
Sheets("Listing").Select
Range("DU3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I27").Select
Selection.Copy
Sheets("Listing").Select
Range("DW3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("G28").Select
Selection.Copy
Sheets("Listing").Select
Range("ED3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Enregistrer_commande").Select
Range("I28").Select
Selection.Copy
Sheets("Listing").Select
Range("EF3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False


Je ne sais pas si c'est clair pour vous...

 

[Habitude]

Re : macro trop lourde

Au début du code tu met

Application.ScreenUpdating = False


Et à la fin du code tu met

Application.ScreenUpdating = True


Ceci devrait empêche ton écran de "vibrer"

 

[Denis]

Re : macro trop lourde

Bonjour le fil et le forum
simplifie également comme ceci

Sheets("Enregistrer_commande").Range("I28").Copy
Sheets("Listing").Range("EF3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

les select sont inutiles et la macro va beaucoup + vite
Bon courage et à +
Denis

 

[Jungle]

Re : macro trop lourde

Merci c'est super !!!!
C'est vraiment cool de ta part....

Biz

 

[Jungle]

Re : macro trop lourde

Merci vraiment à vous 2 !

 

[Efgé]

Re : macro trop lourde

Bonjour à tous,
Un exemple pour le premier "Copier / Coller":

Sheets("Listing").Range("K3").Value = Sheets("Enregistrer_commande").Range("I29").Value

Cordialement