Discussion :

[zeralium]

Bonjour,

J'ai le code suivant qui fonctionne tres bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[decondelite]

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.

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cdlt

[zeralium]

Merci beaucoup pour votre aide.