accélérer une fonction

tinet · 3 Décembre 2010

bonjour à tous,

j'ai créé une macro qui doit exécuter des tâches automatiques sur un fichier.
le lancement de ces tâches est relativement longue, ce qui ralentit énormément d'exécution de excel.

J'avais trouvé à une époque une fonction à rajouter qui permettait d'accélérer les fonctions en VBA.

Il me semble que cette fonction masquée l'exécution à l'écran du calcul, ce qui permettait de gagner du temps.

En attente d'une solution merci.

Pierrot93 · 3 Décembre 2010

Re : accélérer une fonction

Bonjour,

essaye peut être ceci :

Code:

With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
'ton code
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationAutomatic
End With

A voir également s'il n'y a pas lieu de désactiver ponctuellement les procédures événementieles :

Code:

    Application.EnableEvents = False

ne pas oublier de remettre la propriété à "true" en fin de procédure...

bonne journée
@+

tinet · 3 Décembre 2010

Re : accélérer une fonction

Merci Pierrot93,

4 Mn à la place de 8 Mn sur l'exécution de ma macro.

Compte Supprimé 979 · 3 Décembre 2010

Re : accélérer une fonction

Bonjour,

En complément de ce qu'à donné Pierrot93 (que je salue )

Tu peux ajouter aussi : EnableEvents
Ce qui empêche les évènements diverses lors de la modification de cellules ou autre

VB:

With Application
  .EnableEvents = False
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
End With
'ton code
With Application
  .EnableEvents = True
  .ScreenUpdating = False
  .Calculation = xlCalculationAutomatic
End With

A+

tinet · 3 Décembre 2010

Re : accélérer une fonction

Bonjour BrunoM45,

Merci, j'avais effectivement intégré cette fonction.

Au plaisir d'avoir répondu à ma demande.

a+

accélérer une fonction

tinet

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

tinet

XLDnaute Impliqué

Compte Supprimé 979

Guest

tinet

XLDnaute Impliqué

Discussions similaires