Eviter de voir le changement de feuille

[guy72]

Bonjour,
J'ai la macro suivante:

Sub RAZ()
Sheets("Liste").Select
[H5,H22,H26,D22,D30].ClearContents
[K10:K19].Select
Selection.Copy
[H10].Select
ActiveSheet.Paste
[A1].Select
Application.CutCopyMode = False
Sheets("Essai").Select
End Sub

Je ne souhaiterais ne pas voir le changement de feuille.
Que faut-il que je modifie ?
Merci de votre aide
Guy

 

[Pierrot93]

Re : Eviter de voir le changement de feuille

Bonjour Guy

essaye ceci :

Application.ScreenUpdating = False
'ton code
Application.ScreenUpdating = True

bien que les select / activate soient rarement utiles en vba...

bonne journée
@+

 

[Pierrot93]

Re : Eviter de voir le changement de feuille

Re,

A noter, on pourrait peut être coder ainsi :

With Sheets("Liste")
    .[H5,H22,H26,D22,D30].ClearContents
    .[K10:K19].Copy .[H10]
End With

@+

 

[guy72]

Re : Eviter de voir le changement de feuille

Bonjour,
Merci de tes réponses.
La 2ème me plais bien, ça racourcie ma macro.
Merci
Guy