Tri par VBA dans Userform_initialize

L

loukiki

Guest
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
 
L

loukiki

Guest
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
 

Discussions similaires


Haut Bas