Discussion :

[Ch0rizz0_boulo]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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:

c8450-kc52-23633-f0700-stl.xls (<-- fichier contenant le bouton qui lance la macro qui bug le pwd est "gravetrifide")
Fluid_LineNB01.xls (<-- Fichier contenant les données à trier, à laisser fermé mais à placer dans le même répertoire que le fichier "c8450-kc52-23633-f0700-stl.xls")

D'avance merci pour votre aide,

Ch0rizz0, qui galère au boulo

[neupont]

Je n'ai pas le temps de vérifier tes fichiers, mais il faudrait peut-être préciser explicitement ce qu'est la sélection et ce qu'est la clé, avec nom de classeur, de feuille etc...

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Workbooks(2).Sheets(2).UsedRange.Sort Key1:=Workbooks(2).Sheets(2).Range("B1"), Order1:=xlAscending, Header:= _
        xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

[Ch0rizz0_boulo]

Le classeur où je dois effectuer le tri est un classeur qui est créé par la macro du fichier fichier "c8450-kc52-23633-f0700-stl.xls" et qui regroupe sur sa feuille (1) les données de tous les fichiers du type "Fluid_LineNB01.xls"

Si j'enlève la syntaxe du trie et si je laisse ceci ...:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
ActiveWindow.WindowState = xlMaximized
 
        Range(1, 1).Value = "toto"
         '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

... le fichier en question se mets bien en plein écran, on a bien toto en A1 et le fichier se minimise...

le tri tout seul marche, au milieu de ma macro il ne marche plus!! je pense que j'ai du faire une erreur dans le reste de ma macro contenu dans le fichier "c8450-kc52-23633-f0700-stl.xls" (pwd: "gravetrifide") mais franchement je vois pas où


merci de votre aide

[Ch0rizz0_boulo]

petite rectification:
Si j'enlève la syntaxe du trie et si je laisse ceci ca marche aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
ActiveWindow.WindowState = xlMaximized
 
        Selection.Value = "toto"
         '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

... le fichier en question se mets bien en plein écran, on a bien toto ds les cellules selectionées, puis le fichier se minimise...

le mieux est de tester mes fichier, de mettre oui pour le tri et de voir ou ca bug.
Je n'ai que peux d'expérience en VB, merci de votre aide

[Ch0rizz0_boulo]

Pour que vous puissiez testez mon problème j'ai enlevé le mot de passe de mes fichiers.
Pour tester, vous devez mettre les deux fichiers .xls dans un même répertoire, ensuite ouvrez le fichier "MacroPbTri.xls" et cliquez sur le bouton "Remplir nomenclature". lors du pop up demandant le tri cliquez sur oui.
la macro bug ici, alors que j'veux seulement trier les données d'un tableau Excel!!!

Si quelqu'un peux m'aidez, je lui en serais vraiment reconnaissant car tout le monde autour de moi coince sur ce problème.

Merci d'avance