performance sur supression de colonnes

[lguez]

sous excel 2000, Dans une macro, j'ai à plusieurs reprise besoin de suprimer des colonnes. Or cette opération est très longue

code utilisé :
range ("A:C,B:F, ....").delete Shift:=xlToLeft

y a t'il un moyen d'améliorer les performances

 

[fanfan38]

Re : performance sur supression de colonnes

Bonjour,
As tu essayé de les masquer...
A+ François

 

[lguez]

Re : performance sur supression de colonnes

non, j'y ai pensé mais le problème est que mon fichier de départ fait plus de 20000 lignes et 84 colonnes et in fine le résultat de la macro doit être envoyé par mail à plusieurs personnes. il faut donc de toutes façon que je réduise sa taille

 

[pierrejean]

Re : performance sur supression de colonnes

bonjour Iguez

testée sur un fichier de 84 colonnes et 20000 lignes cette macro dure environ 0.2 seconde

Peux-tu t'en inspirer et tester ?

Sub suppression()
Application.ScreenUpdating = False
  Columns("CD:DE").Delete
  Columns("Z:AB").Delete
  Columns("K:X").Delete
  Columns("F:H").Delete
  Columns("B:E").Delete
Application.ScreenUpdating = True
End Sub

Attention a respecter l'ordre inverse des colonnes pour ne pas perturber la numerotatio

 

[lguez]

Re : performance sur supression de colonnes

j'ai créer ce programme:

Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18/01/2008 par lguez
'
Dim t1, t2 As Long
Dim temps1 As Long

'
Sheets("test delete").Activate

t1 = GetTickCount
Range("BV:CD").Delete Shift:=xlToLeft
Range("BH:BT").Delete Shift:=xlToLeft
Range("BD:BF").Delete Shift:=xlToLeft
Range("BB:BB").Delete Shift:=xlToLeft
Range("AZ:AZ").Delete Shift:=xlToLeft
Range("AX:AX").Delete Shift:=xlToLeft
Range("AV:AV").Delete Shift:=xlToLeft
Range("AI:AT").Delete Shift:=xlToLeft
Range("AE:AF").Delete Shift:=xlToLeft
Range("AA:AC").Delete Shift:=xlToLeft
Range("U:Y").Delete Shift:=xlToLeft
Range("N:S").Delete Shift:=xlToLeft
Range("D:L").Delete Shift:=xlToLeft
Range("A:A").Delete Shift:=xlToLeft
t2 = GetTickCount
temps1 = t2 - t1
Sheets("sav").Activate
Cells.Select
Selection.Copy
Sheets("test delete").Select
Range("A1").Select
ActiveSheet.Paste

t1 = GetTickCount
Columns("BV:CD").Delete Shift:=xlToLeft
Columns("BH:BT").Delete Shift:=xlToLeft
Columns("BD:BF").Delete Shift:=xlToLeft
Columns("BB:BB").Delete Shift:=xlToLeft
Columns("AZ:AZ").Delete Shift:=xlToLeft
Columns("AX:AX").Delete Shift:=xlToLeft
Columns("AV:AV").Delete Shift:=xlToLeft
Columns("AI:AT").Delete Shift:=xlToLeft
Columns("AE:AF").Delete Shift:=xlToLeft
Columns("AA:AC").Delete Shift:=xlToLeft
Columns("U:Y").Delete Shift:=xlToLeft
Columns("N:S").Delete Shift:=xlToLeft
Columns("D:L").Delete Shift:=xlToLeft
Columns("A:A").Delete Shift:=xlToLeft
t2 = GetTickCount
MsgBox ("avec range; " & Format(temps1) & Chr(13) & "avec column: " & Format(t2 - t1))

'
End Sub


le résultat a donné:

avec range: 32984
avec column: 35843

J'ai 23510 lignes et 84 colonnes

 

[pierrejean]

Re : performance sur supression de colonnes

Re

chez moi cette macro

Sub supprime()
Application.ScreenUpdating = False
debut = Timer
Columns("BV:CD").Delete
Columns("BH:BT").Delete
Columns("BD:BF").Delete
Columns("BB:BB").Delete
Columns("AZ:AZ").Delete
Columns("AX:AX").Delete
Columns("AV:AV").Delete
Columns("AI:AT").Delete
Columns("AE:AF").Delete
Columns("AA:AC").Delete
Columns("U:Y").Delete
Columns("N:S").Delete
Columns("D:L").Delete
Columns("A:A").Delete
MsgBox (Timer - debut)
Application.ScreenUpdating = True
End Sub

a duré 0.5 seconde (84 colonnes et 25310 lignes)

je n'ais pas GetTikCount dans ma version (2000) et je ne sais pas trop a quoi correspond 32984 ou 35843
mon PC n'est pas particulierement veloce (Pentium4 2,8 Ghz ) et a moins que tu sois sous ZX81 (mon tout premier PC) le temps max devrait etre de l'ordre de 1 seconde

 

[Staple1600]

Re : performance sur supression de colonnes

Bonjour à tous


--> pierrejean: (bonjour) Une demande de précision, stp

Puisqu'on supprime des colonnes avec ta macro

on supprime toutes les lignes non? (de 1 à 65536)

Dans ce cas, qu'est-cela change au niveau de la vitesse d'éxécution?


edit: apparaemment cela change quelquechose

avec 3 colonnes AA1:AC65536 contenant abc

temps : 5 secondes

Avec un classeur vide: 3,94 secondes

 

[pierrejean]

Re : performance sur supression de colonnes

Re

J'avoue que je ne comprend pas bien les temps annoncés

pour 3 colonnes remplies avec "Essai" je tourne à 0,03 seconde avec Application.screen... et 0,047 sec sans !!!

aurais-je un superturbo planqué dans ma machine !!!!

 

[Staple1600]

Re : performance sur supression de colonnes

Re


C'est plutot moi qui suis sur un PC cacochyme 🙄

(PC sous W98 /XL 2000 256 MO RAM / Pentium III 500 Mhz)

 

[lguez]

Re : performance sur supression de colonnes

Je viens d'essayer avec Timer cela donne 32 et 35 secondes !!!

je travail sur XP pro et Excel 2000 SP3

N'y aurai t'il pas une configuration sous excel pour gérer la mémoire. Celle de windows à été configurée par les ingénieurs système
Je ne vois pas sinon pourquoi il y a une telle différence entre tes 2s et mes 35s si ce n'est à cause d'un nombre E/S plus important ?
Ce qui est également étrange est que les autre fonction utilisées dans le programme ont un temps d'exécution correct.

 

[fanfan38]

Re : performance sur supression de colonnes

Bonjour
Pierre Jean a raison...
Mais...il faut ajouter:
Application.ScreenUpdating = False
au debut de la macro
Application.ScreenUpdating = true
à la fin de la macro (avant le end sub)
Comme il a fait

A+ François

 

[Pierrot93]

Re : performance sur supression de colonnes

Bonjour à tous

je n'ai pas tout suivi, mais peut être une piste en désactivant le calcul auto si il y a des formules sur la feuille excel :

Application.Calculation = xlManual
'ton code
Application .Calculation = xlAutomatic

bon week end.
@+

 

[pierrejean]

Re : performance sur supression de colonnes

Re

pour ma part je ne peux que constater la difference entre un matos drivé par des ingenieurs système (au pluriel SVP) et celui piloté par un vieil amateur (bientot septuagenaire)
il est vrai que je tourne sous windows XP familial et et Office 2000 avec un PC tout jeune (Pentium 4 2,8 Ghz 1Giga de memoire )

 

[lguez]

Re : performance sur supression de colonnes

J'ai déjà essayé avec SreenUpdating et Calculation cela n'a pas changé les performances.
J'ai pu gagner 1/2 heures sur l'exécution globale de la macro en remplaçant les delete par des copy-paste et mettant à blanc les colonnes en trops mais je continue à chercher sur un extrait qui ne fait que les range-delete pourquoi je met autant de temps?
Sinon j'ai un PC Portable 1Go Ram sous XP Pro SP2 et c'est un Pentium à 133 MHz

 

[lguez]

Re : performance sur supression de colonnes

Bonjour à tous


--> pierrejean: (bonjour) Une demande de précision, stp

Puisqu'on supprime des colonnes avec ta macro

on supprime toutes les lignes non? (de 1 à 65536)

Dans ce cas, qu'est-cela change au niveau de la vitesse d'éxécution?


edit: apparaemment cela change quelquechose

avec 3 colonnes AA1:AC65536 contenant abc

temps : 5 secondes

Avec un classeur vide: 3,94 secondes

Effectivement dans les colonne que je supprime, j'ai enormement de données type texte, date ou montant. et je pense aussi que cela doit avoir un impact. Mais en retirant le calcul automatique cela n'a rien changé, donc ...