Discussion :

[retraite83]

Bonjour,

j'ai un bout de code (qui marche bien) que j'ai optimisé le plus possible en fonction de mes connaissances, mais le temps d'exécution est encore assez long (dans une boucle 50 fois)

pText = N° de la ligne concernée (integer)
heighText = 300 (integer)

Code :

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

1
2
3
4
5
6
7
8
img.Shapes("Image 4").Copy
            pdfi.Range("C" & pText + 1).Select
            pdfi.Paste
            pdfi.Rows(pText).Select
            pdfi.Rows(pText).AutoFit
            pdfi.Rows(pText).RowHeight = pdfi.Rows(pText).RowHeight + 10
            pdfi.Rows(pText).VerticalAlignment = xlTop
            pdfi.Rows(pText + 1).RowHeight = heighText - pdfi.Rows(pText).RowHeight

Peut-on faire mieux ?

[Qwazerty]

Salut

Sans voir le contexte global où vit ce bout de code, je dirais

Encadrer la boucle avec

Code :

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

application.screenupdating = false.... true

Sortir

Code :

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

img.Shapes("Image 4").Copy

de la boucle puisque c'est toujours la même image qui semble être utilisée


Supprimer le Select ici

Code :

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

pdfi.Rows(pText).Select

et le remplacer par une structure With

Code :

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

1
2
3
4
5
6
With pdfi.Rows(pText)
            .AutoFit
            .RowHeight = .RowHeight + 10
            .VerticalAlignment = xlTop
            pdfi.Rows(pText + 1).RowHeight = heighText - .RowHeight
End With

++
Qwaz

[retraite83]

Bonjour et merci

point 1 : Encadrer la boucle avec

Code :

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

application.screenupdating = false /  true

C'est déjà fait

point 2 : sortir de la boucle :

Code :

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

img.Shapes("Image 4").Copy

Bonne idée

point 3 : Supprimer le Select :

Code :

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

pdfi.Rows(pText).Select

Oui effectivement il ne sert à rien

point 4 :
remplacer par une structure With

Résultats après pas mal d'essais :
avec les points 1 et 2 : gain de près de 30% !

le point 3 n'a pas d'effet visible

[Qwazerty]

Salut

Non le point 3 était plus pour la lisibilité en cas de modifications futures sur le code.

++
Qwaz