Lenteur d'excel sur certaine feuille

[Oliv]

Bonjour à tous,

J'ai un petit problème avec excel. Sur plusieurs de mes feuilles, l'ordinateur semble très lent alors qu'il n'ya pa plus de données sur celles ci que sur d'autres.
Les feuilles occasionnant cette lenteur sont beaucoup travaillées suite à la mise en route d'un programme VBA. Entre autre, ces feuilles sont intégralement effacées au début du programme pour etre mise à jour par la suite via l'application de ce meme programme.
Même quand le programme VB a fini de tourner (affichage du message traitement terminé), le déplacement de cellules en cellules des feuilles 'lentes' se fait difficilement.
Je pense que quelque chose continu à tourner derriere mais je ne sai pa quoi.
De plus, le fait de vouloir créer un programme permettant de générer 3 nouveaux fichiers excel spécifiques comprenant chacun 1 des onglets du fichier excel principal semble particulièrement ralentir mon ordinateur (et arrive parfois même à le faire planter). Pour se faire j'effectue un copié collé de ces onglets vers mes nouveaux fichiers.

Sub Generation3propo()

Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('Nantes').Select
Sheets('Nantes').Copy Before:=Workbooks('Classeur1').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoNantes.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('Rennes').Select
Sheets('Rennes').Copy Before:=Workbooks('Classeur2').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoRennes.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
Workbooks.Add
Windows('Propo tarifaire finale_fonctionne.xls').Activate
Sheets('LeMans').Select
Sheets('LeMans').Copy Before:=Workbooks('Classeur3').Sheets(1)
Sheets(Array('Feuil1', 'Feuil2', 'Feuil3')).Select
Sheets('Feuil3').Activate
ActiveWindow.SelectedSheets.Delete
ChDir 'C:\\Documents and Settings\\RAC\\Bureau'
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\RAC\\Bureau\\PropoLeMans.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub


Merci pour votre aide

 

[Luki]

Bonsoir Oliv,

Sans entrer dans l'immédiat dans le code qui pourrait être épuré, il se peut que ton souci vienne du fait que tu stockes beaucoup de choses dans le presse-papier. Je crois qu'il doit y avoir un moyen de le vider, mais je ne le connais pas de mémoire, cherches sur le forum et dans l'aide.

Question, Est-ce que excel est aussi ralenti si tu crées les fichier 'à la main ' ? si c'est le cas c'est ptêt bien un problème de presse papier, sinon;, je sais pas...

 

[Francky]

Bonjour,

tu peux essayer

Application.ScreenUpdating = False

en première ligne de macro.
Ca accélèrera fortement.

Francky