Optimiser macro VBA

[sharkantipav]

Jai ecris la macro suivante :

Sheets(Range("B6").Text).Visible = True
Sheets(Range("B6").Text).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Pricer").Range("J1").Text
ActiveSheet.Range("B4:B12").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(Range("B6").Text).Visible = xlSheetHidden
ActiveSheet.Range("M1:M2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Range("M2") = "Data"
'Application.Run "BLPLinkReset"
'ActiveSheet.Shapes("CommandButton1").Select
'Selection.Delete


Sheets("Data").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Pricer").Range("J2").Text
ActiveSheet.Range("A1") = Sheets("Pricer").Range("J1").Text
ActiveSheet.Range("A2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Visible = xlSheetHidden

Sheets("Pricer").Select

La macro marche bien, ceci dit je vois toutes les etapes se faire a lecran,
CAD copie d'un onglet renommer et masquer.
Ya til une ligne de script a rajouter pour ne pas que ceci aparaisse a l'ecran.
Merci

 

[poulpor78]

Re : Optimiser macro VBA

Bonjour,

oui : application.screenupdating=false en début de code => ca se réinitialise dés que le code est terminé => pas de crainte.

Ca bloque l'affichage et va rendre le code bien plus rapide.

Poulpor

 

[phlaurent55]

Re : Optimiser macro VBA

Bonjour
' mettre ceci au début de la procédure
Application.ScreenUpdating = False
' et remettre en fin de procédure:
Application.ScreenUpdating = True

à+
Philippe

 

[sharkantipav]

Re : Optimiser macro VBA

Merci Beaucoup