Utilisation de la methode sort.

Bonjour,

J'ai le code suivant qui fonctionne tres bien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Set SHcomp1 = Sheets("U110")
Set SHcomp2 = Sheets("U120")
Set shcomp3 = Sheets("U130")
 
SHcomp1.Activate
SHcomp1.Columns("A:N").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
SHcomp2.Activate
SHcomp2.Columns("A:N").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
shcomp3.Activate
shcomp3.Columns("A:N").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Par contre lorsque je modifie le code, de facon à éliminer les "Activate" dans le but d'optimiser le code:

Code:

1
2
3
4
5
6
7
8
9
10
Set SHcomp1 = Sheets("U110")
Set SHcomp2 = Sheets("U120")
Set shcomp3 = Sheets("U130")
 
SHcomp1.Columns("A:N").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
SHcomp2.Columns("A:N").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
shcomp3.Columns("A:N").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

J'ai le code d'erreur 1004, reference de tri non valide, pourquoi?

Toujours le même problème éternel des références implicites...

Juste un indice: ton problème se situe au niveau de ce que tu renseignes pour ton attribut Key. ;)

Bonjour,

En précisant juste Range("A2"), il prendra en compte la cellule A2 de la feuille active qui n'est pas forcément la feuille sur laquelle s'effectue le tri vu que n'utilises plus les "Select" (ce qui est très bien).

Il faut donc lui préciser de quelle feuille provient la cellule A2

Code:

SHcomp1.Columns("A:N").Sort Key1:=SHcomp1.Range("A2")',...

ou encore
Code:

1 2 3 With SHcomp1 .Columns("A:N").Sort Key1:=.Range("A2")',... End With
Cdlt

Merci beaucoup pour votre aide.