A
Arno
Guest
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
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