Discussion :

[xavier_m]

Bonjour,

Dans mon code, j'utilise:

Code :

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

1
2
3
Application.ScreenUpdating = False
...
Application.ScreenUpdating = True

A chaque fois que la valeur est vraie toutes les images activex sont rechargees (l image disparait et reaparait) certains controles aussi, meme ceux sur lequels je n effectue aucun changement.

y a t-il un moyen de controller ce comportement ?

Merci,

[rtg57]

Bonjour,

à ma connaissance, il n'y a rien à faire.
Il semble que lorsqu'on réactive le ScreenUpdating, toute la page est redessinée dans son ensemble.
Lorsque celle-ci est très chargée, cela prend du temps et se voit franchement. (Surtout si le PC n'est pas un monstre de puissance).

Personnellement, j'ai réussi à atténuer un peu cet effet en gérant mes procédure de façon à ce qu'il y ait:

• Un "ScreenUpdating = False" en début de calcul
• Un "ScreenUpdating = True" en fin de travail

Cela donne en début de chacune de mes procédures:

Code :

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

1
2
3
4
5
6
7
Dim raffraichissement as Boolean
 
raffraichissement = Application.ScreenUpdating
Application.ScrenUpdating = False
 
blabla...
blabla...

Puis en fin de chaque procédures:

Code :

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

Application.ScreenUpdating = raffraichissement

Ainsi, si en entrée de procédure l'affichage est inhibé, il le restera à la sortie.

Bien entendu, je désactive l'affichage avant de lancer un traitement qui appelle plusieurs procédures et fonctions, et je le rétablis une fois que le travail est entièrement terminé.


En espérant que cela puisse vous aider...