Automatiser les tri de données

[Arno]

Bonjour,

Je suis un peu nouveau dans l'utilisation de macro sous Excel, et depuis hier je suis tombé sur un os. Je me dit que peut être quelqu'un sur ce forum pourrait m'éclairer

Je vais essayer d'exposer mon problème clairement.

J'ai un classeur qui contient qui contient une quinzaine de feuille, qui ont le même format. Je dois trier ces feuilles par ordre alphabétique (1ère colone). Pour avoir à avoir à faire 15 fois la même manip je cherche à faire une macro qui réalise ce tri pour chque feuille.

Voilà à quoi ressemble le code:

Sheets('HTR00').Activate
Range('A1:E154').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets('HTR01').Activate
Range('A1:E154').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

et ainsi de suite 15 fois (je sais j'aurais pu faire ça un peu plus propre en faisant une boucle mais j'en suis pas encore là :lol: )

Quand je lance la macro, voilà ce que me dit Excel :
Erreur d'exécution '1004'
La méthode Select de la classe Range a échoué.

Quand je fais debug, il me met sur la ligne
Range('A1:E154').Select

Je n'arrive pas à trouver ce qui cloche, c'est probablement un truc tout simple mais je trouve po

Merci d'avance pour votre aide

 

[Jacques87]

Bonjour

Sheets('HTR00').Activate
Range('A1:E154').Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

tu ne peux pas effectuer un tri sur plusieurs colonnes en même temps
par contre
Range('A1:A154').Select
fonctionnera

Maintenant plutôt que de recopier 15 fois la même chose (15 feuilles) fais une boucle sur tes 15 feuilles

Bon courage