Eviter de voir le changement de feuille

guy72 · 10 Novembre 2010

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 · 10 Novembre 2010

Re : Eviter de voir le changement de feuille

Bonjour Guy

essaye ceci :

Code:

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

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

bonne journée
@+

Pierrot93 · 10 Novembre 2010

Re : Eviter de voir le changement de feuille

Re,

A noter, on pourrait peut être coder ainsi :

Code:

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

@+

guy72 · 10 Novembre 2010

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

Eviter de voir le changement de feuille

guy72

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

guy72

XLDnaute Impliqué

Discussions similaires

Eviter de voir le changement de feuille

guy72

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

guy72

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency