VBA--Application.ScreenUpdating

JJ1 · 9 Septembre 2012

Bonjour,

Je viens vers vous pour une question simple:

J'ai un bout de code avec sous le sub() Application.ScreenUpdating = False puis mon code et avant End Application.ScreenUpdating = True.

Est-il possible d'ajouter un compteur (qui lui défilerait) pour m'indiquer où en est ma boucle dans mon code?

Merci de votre idée.

Bonne soirée

laetitia90 · 9 Septembre 2012

Re : VBA--Application.ScreenUpdating

bonjour jj1 si tu bloque la mise a jour c'est je pense pour aller plus vite non??? tu vas en perdre le bénefice en plus tu vas rallonger le temps pour effectuer ton code

a l'extreme... en fonction de ton code tu peut faire un Updating entre chaque sequence mais cela va dependre de ton code que l'on connais pas???

JJ1 · 9 Septembre 2012

Re : VBA--Application.ScreenUpdating

Bonjour Laetitia,

Merci pour ta réponse....logique !

mais c'est pas évident de voir un écran figé, sans aucune visibilité de l'avancement!

La vitesse prime sur la lisibilité.

Bonne soirée

Modeste geedee · 9 Septembre 2012

Re : VBA--Application.ScreenUpdating

bonsour®

Application.StatusBar=compteur

dans la variable compteur tu mets ce que tu veux (index, pourcentage, texte, N°etape etc...)

pascal82 · 9 Septembre 2012

Re : VBA--Application.ScreenUpdating

Bonjour,

Personnellement dans le cas d'utilisation de boucles et de variables j'utilise

Option Explicit
' Affiche un message dans la barre de status d'Excel
Sub StsBar(ByVal strMsg As String)
Application.StatusBar = strMsg
End Sub

puis

Dim strOps As String 'definir la variable
code
StsBar strOps & " Var1=" & Var1 'exemple de variable a suivre
fin de code

Mais à voir si cela est possible dans votre cas

Cordialement

laetitia90 · 9 Septembre 2012

Re : VBA--Application.ScreenUpdating

re tous

le statusbar une autre possibilité bien sûr
le concept le plus important enfin pour moi.... c'est deja d'optimiser ton code si bien ecris cela peut aller trés vite mais bon sans plus d'infos pas simple

phlaurent55 · 10 Septembre 2012

Re : VBA--Application.ScreenUpdating

Bonjour à tous,

ma petite contribution en pièce jointe
il s'agit de boucler 10.000 fois et afficher la variable I dans une cellule

on constate que les temps d'exécution varient de 1 à 6 (les temps peuvent varier d'un PC à l'autre)

la meilleure solution est donc :

Code:

MsgBox ("Allez boire un café, la procédure continue sans vous !")
Application.ScreenUpdating = False
' la suite du code
' ----------------


Application.ScreenUpdating = True

à+
Philippe

phlaurent55 · 10 Septembre 2012

Re : VBA--Application.ScreenUpdating

RE,

laetitia90 à dit:
le concept le plus important enfin pour moi.... c'est deja d'optimiser ton code si bien ecris cela peut aller trés vite mais bon sans plus d'infos pas simple

Pour aller dans le même sens que Laetitia, j'ajouterai une chose à laquelle on ne pense pas assez souvent:
au début du code:

Code:

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

et en fin de procédure

Code:

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

Vous serez étonnés du résultat, et d'autant plus fort si la feuille contient des : SOMMEPROD, RECHERCHEV, EQUIV, des formules matricielles, ...............

à+
Philippe

phlaurent55 · 10 Septembre 2012

Re : VBA--Application.ScreenUpdating

Re,

Pour illustrer ma réponse précédente, voir en pièce jointe trois procédures identiques

la 3ème est 30 fois plus rapides que les 2 autres

à+
Philippe

JJ1 · 10 Septembre 2012

Re : VBA--Application.ScreenUpdating

Bonjour à tous,

Je vais tenter d'appliquer le code de Philippe (vitesse impressionnante !) à mon fichier.
je vous dirai le résultat.
MERCI beaucoup.

VBA--Application.ScreenUpdating

JJ1

Guest

laetitia90

XLDnaute Barbatruc

JJ1

Guest

Modeste geedee

XLDnaute Barbatruc

pascal82

XLDnaute Occasionnel

laetitia90

XLDnaute Barbatruc

phlaurent55

Nous a quittés en 2020

Pièces jointes

phlaurent55

Nous a quittés en 2020

phlaurent55

Nous a quittés en 2020

Pièces jointes

JJ1

Guest

Discussions similaires