Tri par VBA dans Userform_initialize

[loukiki]

Bonjour au forum

A l'ouverture d'une userform, je procède à un tri de données avant affichage (dans userform_initialize). Le code est le suivant :

'
Range('L28:T' & 27 + 2 * NbreM).Sort Key1:=Range('M28'), Order1:=xlDescending, Key2:=Range( _
'T28'), Order2:=xlDescending, Key3:=Range('R28'), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom

Or, la feuille XLS active n'est pas correcte, le tri ne se fait donc pas, ce qui est des plus normal. Alors j'ai tenté de spécifier la feuille XLS à la méthode Sort tel que :

'
Sheets('Feuille1').Range('L28:T' & 27 + 2 * NbreM).Sort Key1:=Range('M28'), ....

Mais cette solution n'est pas accepté, j'ai le code erreur 'Référence de tri non valide. Vérifier qu'elle se trouve bien parmi les données à trier et que la zone Trier par n'est pas identique ou vide'

Comment dois je spécifier la feuille XLS comportant les données ?

Merci

 

[loukiki]

Dsl, mais le forum m'a donné des ailes et j'ai trouvé mon erreur. Je la communique pour ceux qui aurait le même pb que moi, il suffit d'écrire le code suivant :

Sheets('Feuille1').Range('L28:T' & 27 + 2 * NbreM).Sort _
Key1:=Sheets('Feuille1').Range('M28'), Order1:=xlDescending, _
Key2:=Sheets('Feuille1').Range('T28'), Order2:=xlDescending, _
Key3:=Sheets('Feuille1').Range('R28'), Order3:=xlDescending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= xlTopToBottom


C'était évident, comme d'habitude, après avoir trouvé
Bonne journée à tous