question de temps !!!!!

nat54

XLDnaute Barbatruc

• 17 Août 2009

• #2

Re : question de temps !!!!!

Effectivement ca doit marcher

Code:

[FONT=Arial]Sub Créer_objectifs_CC()[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]Application.ScreenUpdating = False  [/FONT][COLOR=teal][FONT=Arial]'ne pas voir ce qui se passe à l'écran, diminue besoin mémoire[/FONT][/COLOR][FONT=Arial][/FONT]
[COLOR=teal][FONT=Arial][/FONT][/COLOR][FONT=Arial][/FONT]
[FONT=Arial][/FONT] 
[FONT=Arial]......[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]Application.ScreenUpdating = True[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]End Sub[/FONT]

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 17 Août 2009

• #3

Re : question de temps !!!!!

Bonjour edjo123,

Tu dis avoir plusieurs macros qui ont chacune une action spécifique, c'est donc au début de chaque macro et la fin que tu dois mettre ces instructions.

Bon AM

Jean-Pierre

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Août 2009

• #4

Re : question de temps !!!!!

Bonjour Edjo, bonjour le forum,

la solution que l'on t'a donné est bien la bonne maintenant il faudrait voir un peu ton code pour pouvoir t'en dire plus...

Édition

Bonjour Nat, JeanPierre on s'est croisé...

 

Dernière édition: 17 Août 2009

Vote positif 0 Vote négatif

E

edjo123

Guest

• 17 Août 2009

• #5

Re : question de temps !!!!!

Merci

j'ai corrigé mon code et les étapes ne defilent effectivement plus à l'écran. Cependant, le temps d'execution est toujours vachement long et un observateur "exterieur" (autre que moi !!!!) de mon ecran pourrait croire qu'excel a planté.

J'aimerais pouvoir afficher un petit message sur la barre de statut ou ailleurs pendant le temps de l'execution pour rassurer les potentiels utilisateurs de mon outil

Savez vous comment faire ?

 

Vote positif 0 Vote négatif

E

edjo123

Guest

• 18 Août 2009

• #6

Re : question de temps !!!!!

L'image en forme de sablier je la trouve où?

 

Vote positif 0 Vote négatif

E

edjo123

Guest

• 18 Août 2009

• #7

Re : question de temps !!!!!

@masterdisco

Plus serieusement , ta solution marche certainement mais moi je ne peux l'utiliser vu que mon code affiche deja un userform et que vba me dit kon ne peut afficher deux userforms simultanément 🙁 !!!!!

J'ai écrit ceci

Private Sub OptionButton1_Click()

Application.ScreenUpdating = False

oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient....!"



Delete_Commandbar
CreatingToolBarMales
e = SimulationSheet(ligM, colM)
f = CockpitSheet(colM, 8)
colM = colM
colF = colF

Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar

Application.ScreenUpdating = True

End Sub

et ca marche plutot pas mal sauf que j'aimerais bien que mes trois points de suspensions dans la barre d'etat clignotent pour indiquer que le programme tourne

Some ideas Forum ???

 

Vote positif 0 Vote négatif

E

edjo123

Guest

• 18 Août 2009

• #8

Re : question de temps !!!!!

@ masterdico

J'aimerais bien pouvoir afficher un truc comme celui qui tourne près de ton nom dans ta signature tu peux me dire comment ca marche ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 18 Août 2009

• #9

Re : question de temps !!!!!

Si tu fais beaucoup d'assignationde contenu de cellules, alors il te faut désactiver le calcul automatique pour réellement gagner du temps.

Je suis ainsi passé d'un temps d'exécution de ma macro de 40 minutes environ à moins de 3 secondes !!

Il faut toutefois que dans ta macro tu n'aies pas besoin d'utiliser les résultats de formules contenues dans des cellules bien sûr puisque les calculs ne sont plus effectués durant le déroulement de la macro.

A la fin de la macro tu réactives le calcul automatique et tu verras que celui-ci est instantané. 😉


La commande pour désactiver le calcul automatique :
Application.Calculation = xlCalculationManual
et celle pour le réactiver :
Application.Calculation = xlAutomatic



PS : le truc qui tourne est un simple GIF. 😉

 

Dernière édition: 24 Août 2009

Vote positif 0 Vote négatif

E

edjo123

Guest

• 24 Août 2009

• #10

Re : question de temps !!!!!

Merci Marcel pour l'astuce de application.calculation.........

Ca marche pas mal !!!

 

Vote positif 0 Vote négatif