Tri

Salut Kat, le Forum

Je suppose que "Total" est le nom de l'onglet dans lequel
tu veux faire le tri. Si c'est le cas voici la modification :

Sub essai()
Sheets("Total").Activate
Columns("A:E").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Bonne après-midi

PhiBou

Merci Phibou mais malheureusement ça ne marche toujours pas !
Total n'est pas le nom de la feuille mais c'est le nom que j'ai défini.

Re,

Envoie ton fichier zippé car là... je ne vois pas

C'est surréaliste carrément cette p... de fonction de tri !!!

Je prends le même tableau que je colle sur une autre feuille d'un autre classeur, je remets exactement les mêmes lignes de code :

Sheets("Feuil1").Activate
Total.Range("A1:E12").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Orientation:=xlTopToBottom

et là ca marche ! impossible de faire marcher la même chose sur mon programme !!!!
On perd un temps hallucinant à chercher des pbs de syntaxe de m... en VBA !! Qu'est-ce que c'est pénible !!!