Optimisation de la durée d'écécution des macros

Bonjour à tous les vacanciers de retour et à ceux qui ne partirons pas ou ne sont pas encore parti... (j’espère n’avoir oublié personne… )

J'ai un fichier avec un certain nombre de macros mais il est malheureusement très lent... Je me demandais s'il était possible d'optimiser les macros afin de gagner du temps...

Ex:

Sub LC_21911()

Sub Marché_PPP()

Sub Indice_Propre()

Sub Chaînes()

et...

Sub Effacer_Données()

Un grand merci à celle ou celui qui arriverait à relever ce défi (moi je n'y arrive pas...)

Bien à vous.

Fabrice

Bonjour,

Tu peux accélérer ton code en arrêtant l'actualisation écran et les calculs, par exemple :

Sub LC_21911()

  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Orientation = 90
    .Merge
    With .Borders
      .Value = 1
      .LineStyle = xlContinuous
      .Weight = xlMedium
    End With
    With .Font
      .Name = "Calibri"
      .FontStyle = None
      .Size = 9
    End With
    With .Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
    .FormulaR1C1 = "LC 21 911"
  End With
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True

End Sub

Bonjour Patrice,

Je viens de tester... effectivement c'est nettement plus rapide!! Merci beaucoup de ton aide!

Merci et excellente journée.

Cordiales salutations.