Discussion :

[Hellhand]

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 :

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
 
'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

[Supermichou]

Bonjour,

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

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
'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

[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...

[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 :

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

Application.screenupdating = false

[Supermichou]

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

same time

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.

[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 :

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

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.....

[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.