Tri par VBA dans Userform_initialize

  • Initiateur de la discussion Initiateur de la discussion loukiki
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
771
Réponses
5
Affichages
1 K
Réponses
0
Affichages
1 K
Retour