Discussion :

[Iloon]

Bonjour à tous,
Je viens vous demander un conseil car les exécutions de mes macros sont assez longues.
En effet, pour pouvoir mieux les comprendre et les voir s'exécuter, j'ai toujours écrit mes codes comme cela :

Code :

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

1
2
3
4
5
6
7
Workbooks("Comparaison12_6.xls").Activate
Workbooks("Comparaison12_6.xls").Sheets(1).Cells(i + 1, 1).Select
Selection.Copy
Workbooks("Comparaison126_8.xls").Activate
Workbooks("Comparaison126_8.xls").Sheets(1).Cells(k + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

C'était une solution de facilité car j'avais besoin d'exécuter mon code rapidement même si cela prenait plus de temps à l'éxécution et je n'avais pas le temps de trouver un code qui s'exécute plus rapidement.
Ce que je viens vous demander, c'est si vous connaissez une solution permettant au code, juste en ajoutant quelques lignes et sans changer tout le code, de s'exécuter en tache de fond, sans que les fenetres s'ouvrent réellement et donc sans que l'on puisse voir quoi que ce soit à part le petit sablier nous demandant d'attendre..

Je crois que j'en demande beaucoup mais vous faites toujours des miracles donc je tente le coup !

Merci à tous par avance

Iloon

[mayekeul]

bonjour,

un peu comme ça

Code :

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

1
2
3
4
Workbooks("Comparaison12_6.xls").Sheets(1).Cells(i + 1, 1)..Copy
 
Workbooks("Comparaison126_8.xls").Sheets(1).Cells(k + 1, 1)..PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

[Iloon]

bonjour, merci de ta réponse mais en fait cela reviendrait à modifier tout mon code et il y a des centaines de lignes...

La solution miracle serait de placer une ligne en début de code lui disant de s'exécuter dans son pti coin sans s'afficher... :s

[Didier Gonard]

Bonjour,

En désactivant l'affichage, ça ira BEAUCOUP plus vite

vois du côté de la propriété screenupdating dans l'aide

cordialement,

Didier

[Iloon]

AH ! Merci beaucoup, ça fonctionne impec' !

Voilà la preuve que les miracles existent !

Merci encore à tous, bonne continuation

[Gorfael]

Salut à tous
mayekeul
Je crois que ton code comporte une erreur (..)

Code :

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

1
2
3
4
5
6
Application.screenupdating=false
....
Workbooks("Comparaison12_6.xls").Sheets(1).Cells(i + 1, 1).Copy
Workbooks("Comparaison126_8.xls").Sheets(1).Cells(k + 1, 1).PasteSpecial Paste:=xlPasteValues
.....
Application.screenupdatin=true

Malheureusement, on ne peut pas donner un code qui accélère en ne touchant pas au code lui-même, mais
tu peux déjà bloquer le screenupdating et après, ce n'est que de la suppression des "Select...Selection." et les lignes activate.

Une meilleure solution, c'est de prendre le temps au départ d'optimiser son code, ce temps étant toujours remboursé après

Ne connaissant que le code donné, je ne peux proposer une boucle pour les Classeurs, ce qui me semblerais permettre de réduire les lignes de code répétitives, permettant un code de traitement plus court et plus facilement modifiable.

Excel n'étant pas multi-tâches, il ne peut exécuter qu'une tâche à la fois et donc ne peut pas faire tourner une macro en te laissant la main, malgrè tout ce qui semble.
A+

[mayekeul]

mayekeul
Je crois que ton code comporte une erreur (..)

oui, je me suis pas relu
aie aime sorri

Excel n'étant pas multi-tâches, il ne peut exécuter qu'une tâche à la fois et donc ne peut pas faire tourner une macro en te laissant la main, malgrè tout ce qui semble.

c'est vrai mais il y a moyen de simuler avec une "bidouille"

[Iloon]

Je vous remercie pour vos réponses, c'est vrai que je n'ai pas pris le temps d'optimiser mon code dès le début, mais mon patron voulait des résultats très rapidement, et me considérait comme non productive tant qu'il voyait pas de choses concrètes, alors, je les lui ai données !

Le fait de désactiver l'affichage me fait gagner beaucoup de temps, ça va me suffir pour mon projet, je n'ai pas besoin qu'il s'exécute en un temps record.

Je vous remercie donc beaucoup pour tout, à tous !

Iloon.