problème de rapidité du programme

Version imprimable

Bonjour à tous,

Alors j'ai un petit soucie avec mon programme, mon programme marche très bien mais il est tros lent. J'aimerais avoir une autre méthode que la mienne pour l'optimiser.

Cordialement,

Hellhand.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
'exporter donner fiche de consultation dans fiche de calculs
Sub Enregistrer_dans_feuille_de_calcul2()
 
Sheets("Fiche de consultation").Range("B31:F38").Copy
  Sheets("Fiche de calculs").Range("C7:G14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Fiche de consultation").Range("B56").Copy
    Sheets("Fiche de calculs").Range("C35").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Sheets("Fiche de consultation").Range("B42:F45").Copy
      Sheets("Fiche de calculs").Range("N19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Sheets("Fiche de consultation").Range("B48:F49").Copy
    Sheets("Fiche de calculs").Range("N25:R26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Sheets("Fiche de consultation").Range("B52:F54").Copy
    Sheets("Fiche de calculs").Range("N29:R31").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Sheets("Fiche de consultation").Range("F19").Copy
    Sheets("Fiche de calculs").Range("G3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
End Sub

Bonjour,

il y a surement mieux, mais c'est un début
code non testé je précise mais normalement c'est bon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'exporter donner fiche de consultation dans fiche de calculs
Sub Enregistrer_dans_feuille_de_calcul2()
Application.screenupdating = false
 
Sheets("Fiche de consultation").Range("B31:F38").Copy
Sheets("Fiche de calculs").Range("C7:G14").PasteSpecial Paste:=xlPasteValues
Sheets("Fiche de calculs").Range("C35")=Sheets("Fiche de consultation").Range("B56").value
Sheets("Fiche de consultation").Range("B42:F45").Copy
Sheets("Fiche de calculs").Range("N19").PasteSpecial Paste:=xlPasteValues
Sheets("Fiche de consultation").Range("B48:F49").Copy
Sheets("Fiche de calculs").Range("N25:R26").PasteSpecial Paste:=xlPasteValues
Sheets("Fiche de consultation").Range("B52:F54").Copy
Sheets("Fiche de calculs").Range("N29:R31").PasteSpecial Paste:=xlPasteValues
Sheets("Fiche de calculs").Range("G3")=Sheets("Fiche de consultation").Range("F19").value
Application.CutCopyMode = False
Application.screenupdating = true
End Sub

31/08/2012, 09h53
pijaku

Bonjour,
Si ton code se résume à ces quelques lignes et que tu as un souci de rapidité, je pencherai plutôt pour un problème autre...
Temps d'exécution chez moi : 0,03125 secondes. 3 Centièmes de seconde, on ne peux pas dire que ce soit super long...
31/08/2012, 10h12
Hellhand

c'est pas forcément la rapidité le problème mais c'est que mon programme s'execute en mode stromboscope qui me dérange, c'est pour cette raison que je souhait changer mon code, je suis novice en vb et je ne sais pas comment faire!

Cordialement

Bonjour supermichou,

merci pour ta réponse mais je voulais savoir à quoi correspond le code suivant:

Code:

Application.screenupdating = false
31/08/2012, 10h12
Supermichou

le stromboscope est résolu avec le sreenupdating que j'ai placé dans mon précédent post. :calim2:

same time :lol:

en gros (et en anglais) ça fige ton écran, ce qui est plus plaisant aux yeux et un gain parfois sympa en terme de temps d'execution.
si tu met =true en milieu d'execution ça te permet de rafraichir ton écran et de voir des résultats intermédiaires.
31/08/2012, 10h20
pijaku
Comme le dit Supermichou, Application.ScreenUpdating corrige le problème.
Application.ScreenUpdating = False désactive le rafraîchissement de l'écran.
Ne pas oublier de le placer sur True en fin de code...
Code:

1 2 3 4 Application.ScreenUpdating = False 'blabla 'ICI DU CODE Application.ScreenUpdating = True
Quand à ta demande, la prochaine fois essaie d'être plus clair car dans ta demande initiale il n'était question que de rapidité, et pas de "scintillement" d'écran.....
31/08/2012, 10h28
Hellhand

ok, merci pour toutes ces info c'est exacetement ce que je recherchais.
et désoler pour le titre du topic je serais plus clair à l'avenir.

merci encore,

Cordialement,

Hellhand.