Voici une macro toute simple, à lancer après avoir sélectionné la zone à trier :
Sub TriPerso()
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
ou la même qui sélectionne une zone fixe :
Sub TriPerso()
Range("A1:C3").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Astuce : il est très facile d'obtenir des actions aussi simples en lançant l'enregistreur de macros.
Merci beaucoup pour le conseil, je prendrai ta deuxieme proposition cepeandant j'an ai besoin de A1:ANi et c'est cette écriture que je n'arrive pas à coder, voici mon code :
Sub TriPerso()
Do While Range("A" & i) <> 0
i = i + 1
Loop
Range("A1:AN & i").Select =====> Problème pour l'expression AN&i
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
mon probleme est similaire à celui ci sauf que je ne sais po comment faire étant donné que j'exporte tjs des nouvelles données dans les meme colonnes. j'aurais voulu k'en exécutant la macro(que je n'ai po encore créée et dont votre aide sera la bienvenue) le tableau soit trié de la meme manière décrite ds les discussions précedentes
Sub TriPerso()
Do While Range("A" & i) <> 0
i = i + 1
Loop
Range("A1:AN & i").Select =====> Problème pour l'expression AN&i
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Merci encore de ton attention
- Messages postés
-
144
- Date d'inscription
- mardi 17 avril 2007
- Statut
- Membre
- Dernière intervention
- 12 mai 2012
74 > tzehaniTu as fait une erreur de frappe : Range("A1:AN & i") => Range("A1:AN" & i) ou Range("A1:A" & i)