Discussion :

[Beluga_71]

Salut tout le monde,

Voila je souhaiterai savoir s'il y a un moyen de rendre mon code plus rapide.

Je m'explique, j'ai fait un petit programme qui récupère des données suivant qqs critères d'un fichier source et les copies suivants ces memes criteres vers différentes feuilles dans un fichier destination.

Mon code fonctionne bien, simplement il y a des jours ou mon pc est vraiment lent ou j'arrive meme a voir l'execution des différentes etapes de mon code:
- Activaion du fichier source.
- Selection et copie de la plage
- Activation du fichier destination
- collage de la plage etc...

Je me disais donc, y'aurait-il un moyen de réduire ces étapes en mettan par exemple toutes les informations à copier en mémoire (ex: presse papier) et les coller en une seule fois dans le fichier destination et ainsi de suite.

OU bien s'il y a d'autres methode, merci de m'en faire part.

A++

[Le Pierre]

bonjour

voici une procédure accélératrice mais à n'utiliser que lorsque le code ne présente plus de bug de fonctionnement :
(petit truc : j'ai créé une petite sub Deblocage() contenant simplement "FastRun True" qui permet de reprendre la main en cas de plantage dans la macro à accélérer)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'accélerer le code en désactivant en début de procédure puis
'réactivant en fin de procédure les options d'Excel qui
'ralentissent l'exécution.
'Ex
'  Sub MaProc()
'    FastRun False
'
'    'code à accélérer
'
'    FastRun True
'  End Sub

Function FastRun(Setting)
'Peter Fossey, mpep

  Application.StatusBar = "Updating Excel settings, please wait..."
  Application.EnableCancelKey = xlDisabled
  Application.ScreenUpdating = Setting
  Application.DisplayAlerts = Setting
  Application.Interactive = Setting
  If Setting = False Then Application.Calculation = xlCalculationManual
  If Setting = False Then Application.Cursor = xlWait
  If Setting = True Then Application.Calculation = xlCalculationAutomatic
  If Setting = True Then Application.Cursor = xlDefault
  Application.StatusBar = False
  
End Function

à plus

[Gorfael]

Salut à tous
Pour accélérer un code, passe en seconde
Comment veux-tu qu'on puisse réellemnt t'aider ? on a aucune idée du code!
C'est comme de demander d'accélérer ta voiture. Si on ne la voit pas, difficile de faire une proposition qui soit adaptable sur une 2CV et une ferrari (rouge).

Pour optimiser un code, il faut le code à optimiser, sinon, effectivement tu as les "trucs" qui découlent de la logique :
Bloquer le ScreenUpDating
Bloquer les calculs
Supprimer les SELECT / ACTIVATE
Limiter les boucles au strict nécessaire, etc...

A+

[Beluga_71]

Salut,

Comment veux-tu qu'on puisse réellemnt t'aider ? on a aucune idée du code!

promis je mettrai mon code des que la machine sur lequelle il se trouve sortira du coma... j' y travaille

Mais ma question meme si elle fait reference a code que j'ai ecrit est plus generale... et je recherche une solution que je devrait appliquer qq soit le code que je realise... Vous m' avez tous les deux donner des pistes que je vais essayer d' appliquer a cahque fois que je realiserai une macro qui necessite beaucoup de traitement.

Tjrs ds le meme sens pensez vous que c possible ds une macro ou je copierai une plage1, puis une plage2 etc plageN et au moment de les coller au lieu de le faire une a une je collerai une plage qui serait l' union de toutes les plages 1,2,...,n

Merci

[Gorfael]

Salut Beluga_71

Mais ma question meme si elle fait reference a code que j'ai ecrit est plus generale... et je recherche une solution que je devrait appliquer qq soit le code que je realise...

si tu donnes un code et qu'on te te retourne optimisé, tu seras à même de voir les modification et de les appliquer de façon plus générale. C'est ce qu'on fait tous ici : quand une réponse semble meilleure on l'analyse, et si on ne comprend pas, on demande des explications. Il y a tellement de manière de faire un code que faire des généralités ne sert à rien. Il y a des codes qui sont plus rapide dans certains cas et pas dans d'autres...

Tjrs ds le meme sens pensez vous que c possible ds une macro ou je copierai une plage1, puis une plage2 etc plageN et au moment de les coller au lieu de le faire une a une je collerai une plage qui serait l' union de toutes les plages 1,2,...,n

Non, c'est comme dans Excel, les multi-sélection ne sont pas copiables.
A+

[cafeine]

Hello,

dans un premier temps essaie le code proposé par le Pierre, c'est une compilation de bonnes idées.