Pb pour trier des données .xls à l'aide d'une macro - VB/VBA/VBS - Programmation
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.
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
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...
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.
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