Discussion :

[thomas.trabaries]

Bonjour,

Je viens de terminer ma macro en VBA sur excel 2003.
Son execution au debut etait rapide, elle réalisait diverses operations d'une page à l'autre en quelques secondes et depuis aujourd'hui...elle marche toujours mais au ralenti. Elle prend bien 1 minute pour faire ce qu'elle faisait avant en 5 secondes.

J'avais déjà connu ce genre de ralentissement avec une autre procédure.
Je ne sais pas pourquoi...

Quelqu'un peut-il m'aider ?

Thomas

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Cela va être dur de te répondre, en effet les réponses peuvent être multiples, et tu ne nous aide pas beaucoup, car tu ne nous dis pas ce qu'elle fait, et tu ne nous donnes pas le code fautif.

Philippe

[ouskel'n'or]

+1
En outre, ce problème peut être lié à Windows, à ton anti-virus, à une mise à jour, à un virus... Bref, sans connaître l'environnement de ta machine... ?!?

[decondelite]

Personnellement ça m'est déjà arrivé, en bien pire en plus.

Je pense que c'est tout simplement Excel qui desfois décide de buguer pendant quelques temps (quelques minutes, ou quelques jours même avec extinction de l'ordi entretemps). Pour ma part ça ne se limitait pas seulement aux macros (à mon détriment).
Mais il se peut également comme te l'ont dit philippe et ouskel'n'or qu'il s'agisse de Windows ou de tout autre programme qui a décidé de te mettre des batons dans les roues.

Bref, si tu n'as absolument rien touché depuis avant, c'est pas de la faute de ton programme si ça plante.

[DidierLoche]

Bonjour,

J'ai connu le même soucis.
Dans mes feuilles Excel, certaines cellules font appel à des fonctions qu'Excel cherche à mettre à jour à chaque fois que VBA modifie les feuilles.
Pour éviter cela, il suffit de passer en mode calcul manuel en début de macro et revenir au mode calcul automatique en fin de macro. A cela, tu ajoutes un screenupdate=false puis true en fin de macro et ça amélriore nettement le temps de calcul. Cela donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    ......
    ......
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

Essaie cela et dis-nous si ça a résolu ton problème.

Didier

[fred65200]

bonjour à tous

personnellement j'écrirais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Calc As Integer
Application.ScreenUpdating = False
 
    Calc = Application.Calculation
    Application.Calculation = xlCalculationManual
    '......
    '......
    Application.Calculation = Calc
    Application.ScreenUpdating = True

au cas ou le mode de calcul ne soit pas en automatique



Cordialement