Macro extremement lente

spitfire378 · 18 Juillet 2008

Bonjour a tous

j'ai ce petit bout de code pour effacer une plage de cellule

Code:

Application.ScreenUpdating = False

Windows("Outil Statistique CDN 2008.xls").Activate

Sheets("Calculs").Select
Range("A2:CX500").Select
Selection.ClearContents

Lorsque je définis CX avec la hauteur 500, les cellules sont effacées instantanément. Par contre lorsque je définis CX1000 par exemple, la macro prend bien 2 minutes a effacer la plage. Ce malgres que j'ai un ordinateur relativement puissant (Core 2 duo 2.2GHZ, 2go de ram). Si vous pouviez m'aider 😕

tototiti2008 · 18 Juillet 2008

Re : Macro extremement lente

Bonjour Spitfire,

commence déjà par essayer ça :

Code:

Application.ScreenUpdating = False

Workbooks("Outil Statistique CDN 2008.xls").sheets("Calculs").Range("A2:CX500").ClearContents

Compte Supprimé 979 · 18 Juillet 2008

Re : Macro extremement lente

Salut Spitfire378,

Je pense que tu as un problème de calcul qui se fait

Code:

' Désactiver le calcul automatique
Application.Calculation =xlCalculationManual
Windows("Outil Statistique CDN 2008.xls").Activate
Sheets("Calculs").Range("A2:CX500").ClearContents
Application.Calculation = xlCalculationAutomatic

Voili, voilà 😉

Salut à toi Tototiti2008

Macro extremement lente

spitfire378

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Macro extremement lente

spitfire378

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Compte Supprimé 979

Guest

Privacy & Transparency

Privacy & Transparency