macro pour trier plusieurs colonnes

[liline]

Bonjour à tous !
tout d'abord, je tiens à remercier tout ceux qui m'ont apporté leur aide, car grâce à eux, mon programme est pratiquement terminé.
Mais aujourd'hui, j'ai un autre problème.

Je souhaite trier les 4 premières colonne d'un tableau, puis effectuer un tri sur l'ensemble des données de ce tableau.
J'ai utilisé l'enregistreur de macro qui me donne ceci :

Range("B3:E52").Select
Selection.Sort Key1:=Range("E3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B3:J52").Select
Selection.Sort Key1:=Range("H3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Lorsque je fais appel à cette macro ou tout simplement quand je copie ces lignes dans mon programme, aucun tri n'est effectué.

Quelqu'un peut-il me dire pourquoi? y a-t-il une solution ? existe-t-il un autre code?

d'avance , merci !

Liline.

 

[michel]

Bonjour Liline

Ta macro fonctionne sur mon pc quand je l'utilise telle quelle ( excel97)
Après quelques essais, le seul cas ou le tri n'est pas effectué , serait quand la feuille active au moment de la macro , ne correspond pas à la feuille du tableau à trier
Si c'est le cas dans ton fichier , la macro ci dessous devrait résoudre le problème : remplace Feuil1 par le nom de la feuille ou est situé le tableau

Sub tri()

With Sheets("feuil1").Range("B3:E52")
.Sort Key1:=Sheets("feuil1").Range("E3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With

With Sheets("feuil1").Range("B3:J52")
.Sort Key1:=Sheets("feuil1").Range("H3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End With

End Sub


Si ma solution ne fonctionne toujours pas , as tu possibilité de joindre sur le forum , une version zippée de ton fichier pour regarder tout ça plus en détail

Bonne journée
Michel

 

[liline]

Merci Mille Fois !!!!!
Grâce à ton aide, mon programme est enfin terminé ,et surtout, il fonctionne !!!
MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI MERCI !

A bientot !

Liline