[vba]Optimisation du code pour la rapidité (résolu)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [vba]Optimisation du code pour la rapidité (résolu)

AssiuM

Citoyen n°8904

Bonjour,

j'ai créé un programme dont la fonction principale est de remplir et de créer des dizaines zones sur une page... Seulement, le programme mets près de 5 secondes sur un ordinateur récent à faire sa routine, et plus de 35 secondes sur l'ordinateur sur lequel il devra tourner.

Est-il possible d'optimiser le code ?

Voici le code pour une zone qui est répété des dizaines de fois...

Code :

ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, CentimetersToPoints(0.6), CentimetersToPoints(0.8), CentimetersToPoints(5), CentimetersToPoints(0.4)).Select
Selection.ShapeRange.TextFrame.TextRange.Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.TextFrame.MarginLeft = 0#
Selection.ShapeRange.TextFrame.MarginRight = 0#
Selection.ShapeRange.TextFrame.MarginTop = 0#
Selection.ShapeRange.TextFrame.MarginBottom = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.Collapse
Selection.TypeText Text:=NomTextbox.Text

Optimisation pour une meilleure vitesse d'exécution possible ?

Merci :bounce:

Message édité par AssiuM le 11-08-2004 à 13:19:28

Publicité

-Farenheit-

Avant de commencer à créer tes zones :

Application.ScreenUpdating = False

et a la fin :
Application.ScreenUpdating = True

==> Ca évitera de redessiner toutes les zones 1 par 1 au cours de la génération...

AssiuM

Citoyen n°8904

-Farenheit- a écrit :

merci !!!! impressionnant ça prend maintenant plus que 6 secondes au lieu de 35 :ouch: :ouch:

chapeau bas :hello:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[vba]Optimisation du code pour la rapidité (résolu)

Sujets relatifs
que pensez vous de ce code ?	[C/C++] compiler un code C avec un compilo C++
replace[resolu]	[VBA]Passer d'une zone de texte à une autre (résolu)
[Résolu à 50%]Librairie MIDI multiplateforme	[resolu] La zone de données passée à un appel système est insuffisante
Grep? besoin de la colonne d'une seq recherchee: RESOLU	Convertir un Char* en WCHAR* ? [résolu]
pourquoi la racine fait jamais comme les autres ? [TreeView] [resolu ]
Plus de sujets relatifs à : [vba]Optimisation du code pour la rapidité (résolu)

Page générée en 0.046 secondes