Pb pour trier des données .xls à l'aide d'une macro

Pb pour trier des données .xls à l'aide d'une macro - VB/VBA/VBS - Programmation

Marsh Posté le 05-09-2007 à 14:11:36    

Bonjour,
 
J'ai une macro qui manipule des donner entre plusieurs fichiers .xls. En plein milieu de la macro, j'ai besoin d'effectuer un trie sur les données d'un fichier mais la macro bug.
Ce qui me pose problème, c'est que si je mets sur cette macro un point d'arrêt juste avant ce trie, je la relance, au point d'arrêt j'enregistre en macro mes prochaines actions, je fais ce trie manuelement via xls (données -> trier...) CA MARCHE SANS BUGGER Grrrrrr, je stop l'enregistrement.
J'ai donc une syntaxe qui est sencé marcher, que j'intègre donc à ma macro mais qui plante malheuresement.
 
Voiçi la syntaxe du trie qui plante:
 
____________________
ActiveWindow.WindowState = xlMaximized
         
         Selection.Sort Key1:=Range("I2" ), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Sort Key1:=Range("G2" ), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
         
ActiveWindow.WindowState = xlMinimized
____________________
 
Je pense que malgré mes explications que j'ai voulu le plus clair possible, l'envoi de mes fichiers .xls contenant les macro serait plus efficace.
Est il possible de joindre des fichiers?
 
D'avance merci pour votre aide,
 
Ch0rizz0, qui galère au boulo

Reply

Marsh Posté le 05-09-2007 à 14:11:36   

Reply

Marsh Posté le 05-09-2007 à 18:31:30    

Quel genre de plantage ?
Peut-être que c'est parce qu'il faudrait, au péalable, faire une sélection afin que l'objet "selection" contienne quelque chose.

Reply

Marsh Posté le 06-09-2007 à 08:26:30    

C'est un bug de la macro qui, lorsque l'on clic sur débogage, surligne la 1ere ligne de tri:
____________________  
 
Selection.Sort Key1:=Range("I2" ), Order1:=xlAscending, Header:=xlGuess, _  
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _  
        DataOption1:=xlSortNormal  
 
____________________  
 
Je ne pense pas que ce soit un pb de selection car si je remplace ces 2 ligne de tri par _selection.value = "toto"_ je n'ai pas de bug.
 
Le plus efficace serait de joindre mes fichiers mais ca me semble pas prévu içi...
 
Merci pour votre aide

Reply

Marsh Posté le 06-09-2007 à 09:21:27    

Avant de cliquer sur debogage, tu devrais lire le message d'erreur et nous le retranscrire...

Reply

Marsh Posté le 06-09-2007 à 09:37:35    

Erreur d'exécution '1004':
 
Référence de tri non valide. Vérifiez qu'elle se trouve bien parmis les données à trier et que la zone Trier par n'est pas identique ou vide.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed