Macro extremement lente

[spitfire378]

Bonjour a tous

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

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]

Re : Macro extremement lente

Bonjour Spitfire,

commence déjà par essayer ça :

Application.ScreenUpdating = False

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

 

[Compte Supprimé 979]

Re : Macro extremement lente

Salut Spitfire378,

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

' 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