Discussion :

[Yvanou]

Bonjour,

J'ai créé une macro qui envoie les résultats de calculs dans les cellules d'un tableau. Malheureusement, les calculs s'effectue très lentement et les cellules se remplissent, en gros, au rythme d' 1 cellule toutes les 2 secondes. J'ai remarqué cependant un phénomène curieux: lorsque je clique sur le bouton gauche de la souris, les calculs s'effectuent plus rapidement (1 à chaque clic de souris).

Quelqu'un aurait-il un moyen d'accélerer les calculs puisque apparemment, ce n'est pas la puissance de mon processeur qui est en jeu?

NB: J'ai déjà testé la solution d'empêcher l'affichage en cours de calcul mais rien n'y fait.

[datacell33]

Pour empécher le rafraichissement de l'affichage et accélérer le tout :

Code :

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

Application.screenupdating = False

Sinon, il y a peut-être des milliers de formules dans ton tableau ?
Vérifie que tu n'es pas en mode rafraichissement automatique des formules (dans les options Excel)

[Gorfael]

Salut Yvanou et le forum
Ce serait bien de donner le code : on ne sait rien de ce que fait la macro, et à par utiliser ScreenUpDating ou de passer en calcul sur demande, aucune solution ne pourra savoir ce qui pourrait accélérer l'exécution.
A+

[Yvanou]

Bonjour et merci pour vos réponses

Application.screenupdating = False

J'ai de nombreuses boucles dans mon calcul, je pense que c'est ça qui ralenti le calcul. A quel endroit du code dois-je mettre le code ci-dessus? En début de boucle, en début de code? Faut-il inscrire par la suite:

Code :

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

Application.screenupdating = True

?

[datacell33]

Cette option de screenupdating tu la mets en première ligne de code, enfin, au niveau des initialisations diverses...
Après dans tes boucles, peut-être que tes tests de sortie boucles ne sont pas satisfaisants ???
Et puis sinon, ça arrive hein, des pgms longs en VBA. Après tout c'est de l'interprété et ça ne va pas très vite c'est sur. Mais d'un autre côté, Excel bossant en mémoire vive (ce que je me tue à expliquer à des collègues fous de bases de données) et pas sur disque, les accès sont la plupart du temps immédiats.

[datacell33]

Et j'oubliais, ce n'est pas nécessaire de repositionner le screenupdating à True en fin de pgm...

[Yvanou]

Merci Merci pour vos réponses!!

J'ai testé le Screenupdating = False mais ça ne changeait rien parce que mon programme intégrait les écritures de valeur à l'intérieur des boucles. Donc finalement je n'avais plus rien.

En revanche, j'ai changé de tactique: j'ai créé un tableau de Double dans lequel j'envoyais toutes mes valeurs puis je recopiais ce tableau à l'endroit où j'en avait besoin en fin de programme. Du coup, j'ai divisé le temps de calcul par 8 ou 10.

Merci pour votre aide en tout cas!!