![]() |
|
Forum
|
|
|
#1 (permalink) |
|
Guest
Messages: n/a
|
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 |
|
|
|
#2 (permalink) |
|
Guest
Messages: n/a
|
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 |
|
|
| ANNONCES | |
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|