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