Discussion :

[zoumzoum59]

Bonsoir à tous

J'ai créé un fichier qui commence a prendre un peut d'importance et qui commence à ramer au démarrage du fichier.
Quels sont les elements qui faut retravailler en priorité pour alleger les procedures.

Je suppose qu'il faut typer les variables au plus juste suivant leur utilisation, mais apres je suis un peu perdu.

Si quelqu'un peu me donner des infos ou m'indiquer un document qui en parle que je pourrais consulter.

Merci d'avance

[Chewi]

Bonjour,

1er lien:
http://www.info-3000.com/vbvba/conseiloptimisation.php

Sinon, éviter les Select le quand c'est possible et les If interminables et les remplacer par Case 1, Case2 quand c'est possible.

J'espère que ceci pourra déjà un peu t'aider.

Chewi

[Shivan83]

Bonjour,

Alors moi je debute mais d'apres ce que j'ai vu pour optimiser ton code, enlever tous les selects change enormement (j'ai constaté que je passais de 5min d'execution a 15sec).

Pour ce faire, tu changes :

Code :

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

1
2
3
Sheets("TaFeuille").Select
Range("B3").Select
ActiveCell.Formula = "..."

en :

Code :

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

Sheets("TaFeuille").Range("B3").Formula = "..."

et sinon je profite de ce post pour poser une question du meme ordre:
Comment enlever les selections d'un code de ce type :

Code :

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

1
2
3
Sheets("GRAPH").Select
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).XValues = "='Histo-GRAPH'!R2C1:R35C"

(j'ai essayé Sheets("GRAPH").ChartObjects("...").SeriesCollection(1).XValue = ... mais ca ne fonctionne pas)