vitesse de la macro

[Bricoltou]

Bonjour le Forum
J'ai eu ce petit morceau de code sur un post de ce forum
J'aimerai savoir si il existe un code que je pourrai utiliser sur n'importe quelle
macro afin d'accelerer le déroulement de la macro .

Au début de  mon code :
 .ScreenUpdating = False
   .Calculation = xlCalculationManual
A la fin de mon code   
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True

Merci d'avance pour vos réponses

Bricoltou

 

[ROGER2327]

Re : vitesse de la macro

Bonjour à tous

D'accord avec Jean-Marcel : le code correct pourrait être

[COLOR="DarkSlateGray"][B][COLOR="SeaGreen"]'...[/COLOR]
   With Application
      .ScreenUpdating = false
      .Calculation = xlCalculationManual
      [COLOR="SeaGreen"]' code[/COLOR]   
      .Calculation = xlCalculationAutomatic
      .ScreenUpdating = True
   End With[/B][/COLOR]

Avec plus de précaution et si le code le permet

[COLOR="DarkSlateGray"][B]   Application.EnableEvents = False
   [COLOR="SeaGreen"]' code[/COLOR]
   Application.EnableEvents = True[/B][/COLOR]

Il faut être certain que le code intercalé ne plantera pas !
Cette structure permet d'inhiber les évènements. Si par exemple vous avez une procédure

[B][COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
   
End Sub[/COLOR][/B]

dans une feuille "X" et que le code suivant Application.EnableEvents = False modifie la valeur d'une cellule de cette feuille "X", la procédure Worksheet_Change ne sera pas exécutée, et la vitesse sera plus grande. Bien entendu, il faut être certain que le code intercalé n'a pas besoin de prendre en compte les modifications qui interviennent dans la feuille "X".
Par conséquent, le recours à cette méthode ne peut s'envisager qu'après une analyse sérieuse du code intercalé.​

ROGER2327
#2308