Tri sans afficher la selection

Bonjour,

Dans un tableau (+ de 10.000 lignes) je voudrais trier sans que la sélection du tableau apparaisse à
l'écran.

Sheets("Feuil1").select
Range(Cells(Num_derligne, 1), Cells(Num_derligne, 22)).Select

Selection.Sort Key1:=Range("H5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Merci pour votre aide

Jean-Pierre

-----Original Message-----
Bonjour,
L'instruction :
application.screenupdating=false
en début de code, remise à true à la fin convient elle ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Jean-Pierre" <ajp.pasquet@tele2.fr> a écrit dans le
message de news:

hxTwd.5144$Of5.3782@nntpserver.swip.net...

Bonjour,

Dans un tableau (+ de 10.000 lignes) je voudrais trier
sans que la sélection du tableau apparaisse à

l'écran.

Sheets("Feuil1").select
Range(Cells(Num_derligne, 1), Cells(Num_derligne,
22)).Select

Selection.Sort Key1:=Range("H5"), Order1:=xlAscending,
Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

Merci pour votre aide

Jean-Pierre

.

Bonjour,

Dans un tableau (+ de 10.000 lignes) je voudrais trier sans que la
sélection du tableau apparaisse à l'écran.

Sheets("Feuil1").select
Range(Cells(Num_derligne, 1), Cells(Num_derligne, 22)).Select

Selection.Sort Key1:=Range("H5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Merci pour votre aide

Jean-Pierre

Bonjour,
peut-être veux tu conserver la sélection initiale

Sub reviens()
Dim myr as string
myr =selection.address

'tamacroquitrie
Range(myr).select
end sub

'lSteph

"Jean-Pierre" <ajp.pasquet@tele2.fr> a écrit dans le message de news:
hxTwd.5144$Of5.3782@nntpserver.swip.net...

Bonjour,

Dans un tableau (+ de 10.000 lignes) je voudrais trier sans que la
sélection du tableau apparaisse à l'écran.

Sheets("Feuil1").select
Range(Cells(Num_derligne, 1), Cells(Num_derligne, 22)).Select

Selection.Sort Key1:=Range("H5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Merci pour votre aide

Jean-Pierre