Bonjour,
N'ayant pas trouvé de solution satisfaisante à mon problème, je me tourne vers vous.
J'ai une feuille avec quelques dizaines (voire centaines) d'autoShapes que je manipule via VBA. Tant qu'il y en a peu (moins de 50 environ), le scintillement de l'écran reste acceptable mais lorsqu'ils sont nombreux, il devient tout simplement insupportable.
Je sais qu'un Application.ScreenUpdating = False permet de bloquer précisément ce désagrément, mais dans le cas présent, plusieurs macros qui s'appellent les unes les autres interviennent dont certaines ont des ScreenUpdating à True afin que l'on puisse voir les Shapes se déplacer.
Le fichier sur lequel je bute étant devenu une quasi usine à gaz, j'ai construit un petit fichier sur un modèle assez semblable afin que vous puissiez visualiser mon problème. De nombreuses macros (que j'ai essayé de faire simples afin que tout le monde puisse suivre) viennent gérer l'apparition, les déplacements des cubes, leurs animations, ombres... Et plus les cubes sont nombreux à l'écran, plus le problème est pesant.
J'ai tenté d'englober l'ensemble de mes macros dans une meta-macro qui commencerait par Application.screenupdating = false ... et finirait par ... .screenUpdating=True, mais du coup, les .Onkey ne fonctionne plus ou le rafraichissement de l'écran est complètement bloqué.
Je me disais qu'il devait probablement exister une API pour régler ce genre de souci, ou peut-être une option à cocher quelque part dans excel, mais j'avoue avoir cherché sans succès. Je suis ouvert à toutes les pistes qui pourraient m'aider à avancer.
Voir le fichier joint pour mieux saisir le souci.
Merci.
N'ayant pas trouvé de solution satisfaisante à mon problème, je me tourne vers vous.
J'ai une feuille avec quelques dizaines (voire centaines) d'autoShapes que je manipule via VBA. Tant qu'il y en a peu (moins de 50 environ), le scintillement de l'écran reste acceptable mais lorsqu'ils sont nombreux, il devient tout simplement insupportable.
Je sais qu'un Application.ScreenUpdating = False permet de bloquer précisément ce désagrément, mais dans le cas présent, plusieurs macros qui s'appellent les unes les autres interviennent dont certaines ont des ScreenUpdating à True afin que l'on puisse voir les Shapes se déplacer.
Le fichier sur lequel je bute étant devenu une quasi usine à gaz, j'ai construit un petit fichier sur un modèle assez semblable afin que vous puissiez visualiser mon problème. De nombreuses macros (que j'ai essayé de faire simples afin que tout le monde puisse suivre) viennent gérer l'apparition, les déplacements des cubes, leurs animations, ombres... Et plus les cubes sont nombreux à l'écran, plus le problème est pesant.
J'ai tenté d'englober l'ensemble de mes macros dans une meta-macro qui commencerait par Application.screenupdating = false ... et finirait par ... .screenUpdating=True, mais du coup, les .Onkey ne fonctionne plus ou le rafraichissement de l'écran est complètement bloqué.
Je me disais qu'il devait probablement exister une API pour régler ce genre de souci, ou peut-être une option à cocher quelque part dans excel, mais j'avoue avoir cherché sans succès. Je suis ouvert à toutes les pistes qui pourraient m'aider à avancer.
Voir le fichier joint pour mieux saisir le souci.
Merci.