Problème de saut de page !

[poulpe]

Lorsque je modifie une donnée dans ma feuille A ... je dois faire une un tri d'une plage de données dans une feuille B. Je l'ai fait avec du VBA mais le problème c'est qu'Excel97 ne fonctionne que si je fais le code suivant :

Sheets("feuilleB").Select

Range("B28:U47").Sort Key1:=Range("D28"), Order1:=xlDescending, Key2:=Range( _
"U28"), Order2:=xlDescending, Key3:=Range("R28"), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom

Et du coup le ".select" me fait faire des sauts de page de la feuille A à la feuille B, c'est très désagréable ... j'ai essayé de l'enlever en le collant au range (Sheets("feuilleB").Range("B28:U47") ... ) mais Excel97 ne veut pas en entendre parler !

Si quelqu'un pouvait me trouver une solution pour faire disparaître cette erreur ça serait super top cool !

 

[PhiBou]

Salut poulpe, le Forum

En désactivant la mise à jour de l'écran (ScreenUpdating) tu évites cet
inconvénient. Bien penser à la réactiver à la fin de la macro

Application.ScreenUpdating = False
Sheets("feuilleB").Select

Range("B28:U47").Sort Key1:=Range("D28"), Order1:=xlDescending, Key2:=Range( _
"U28"), Order2:=xlDescending, Key3:=Range("R28"), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Application.ScreenUpdating = True
Sheets("feuilleA").Select

Bonne fin de journée

PhiBou

 

[poulpe]

Merci pour tout ça marche nickel chrome !

 

[Myta]

Salut le forum

Ou encore comme ceci

Sub Macro1()
Application.ScreenUpdating = False
With Sheets("feuilleB").Activate
Range("B28:U47").Sort Key1:=Range("D28"), Order1:=xlDescending, Key2:=Range( _
"U28"), Order2:=xlDescending, Key3:=Range("R28"), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
End With
Sheets("Feuil1").Activate
Application.ScreenUpdating = True
End Sub