[VBA] Trier un tableau excel avec vba
Fermé
tzehani
Messages postés
11
Date d'inscription
lundi 16 juillet 2007
Statut
Membre
Dernière intervention
31 octobre 2010
-
19 juil. 2007 à 09:20
titounette - 7 juil. 2008 à 16:15
titounette - 7 juil. 2008 à 16:15
A voir également:
- Vba trier colonne par ordre croissant
- Vba trier tableau en fonction d'une colonne - Meilleures réponses
- Vba trier un tableau - Meilleures réponses
- Excel trier par ordre croissant chiffre - Guide
- Triez cette liste par ordre alphabétique des villes et par note de la meilleure à la moins bonne. quel mot est formé par les 8 premières lettres de la colonne code ? ✓ - Forum Excel
- [VBA/Excel] Tri croissant dans une colonne - Forum VB / VBA
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
2 réponses
Papou93
Messages postés
146
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
5 juin 2012
59
19 juil. 2007 à 15:03
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)