[VBA] Trier un tableau excel avec vba
Fermé
tzehani
titounette - 7 juil. 2008 à 16:15
- Messages postés
- 11
- Date d'inscription
- lundi 16 juillet 2007
- Statut
- Membre
- Dernière intervention
- 31 octobre 2010
titounette - 7 juil. 2008 à 16:15
A voir également:
- Vba trier tableau
- Excel vba trier tableau - Meilleures réponses
- Trier tableau vba - Meilleures réponses
- Vba trier tableau ordre croissant - Forum - VB / VBA
- [VBA] Trier un tableau excel avec vba - Forum - VB / VBA
- Vba trier tableau ordre alphabétique ✓ - Forum - Excel
- Vba tri tableau 2 dimensions ✓ - Forum - VB / VBA
- Tri alphabétique vba ✓ - Forum - VB / VBA
2 réponses
Papou93
19 juil. 2007 à 15:03
- Messages postés
- 146
- Date d'inscription
- mercredi 4 avril 2007
- Statut
- Membre
- Dernière intervention
- 5 juin 2012
19 juil. 2007 à 15:03
Bonjour tzehani,
Voici une macro toute simple, à lancer après avoir sélectionné la zone à trier :
ou la même qui sélectionne une zone fixe :
Astuce : il est très facile d'obtenir des actions aussi simples en lançant l'enregistreur de macros.
Cordialement.
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.
Cordialement.
23 juil. 2007 à 09:27
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
23 juil. 2007 à 11:44
Tu as fait une erreur de frappe : Range("A1:AN & i") => Range("A1:AN" & i) ou Range("A1:A" & i)