Trier un tableau excel automatiquement
Résolu/Fermé
Julien_R
Messages postés
128
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
18 avril 2013
-
1 juil. 2010 à 11:28
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 1 juil. 2010 à 12:01
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 - 1 juil. 2010 à 12:01
A voir également:
- Trier un tableau excel automatiquement
- Tableau croisé dynamique - Guide
- Liste déroulante excel - Guide
- Trier tableau excel - Guide
- Tableau ascii - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
1 réponse
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 395
1 juil. 2010 à 12:01
1 juil. 2010 à 12:01
Bonjour
clic droit sur le nom de l'onglet, visualiser le code et copier la macro ci dessus.
A adapter à vos champ, sachant que cet exemple:
1°) tri un champ limite A1:Z100 Range("A1:Z100") dans le texte à adapter
2°) tri référencé sur la colonne A =Range("A1") dans """
3° se déclenche lorsque une valeur est entrée dans la colonne B, de B1 à B200
soit valeur union[B1],[B100] et Range("B1:B100") à adapter
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([B1], [B100], Range("B1:B100"))) Is Nothing Then Exit Sub
Range("A1:Z100").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
clic droit sur le nom de l'onglet, visualiser le code et copier la macro ci dessus.
A adapter à vos champ, sachant que cet exemple:
1°) tri un champ limite A1:Z100 Range("A1:Z100") dans le texte à adapter
2°) tri référencé sur la colonne A =Range("A1") dans """
3° se déclenche lorsque une valeur est entrée dans la colonne B, de B1 à B200
soit valeur union[B1],[B100] et Range("B1:B100") à adapter
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([B1], [B100], Range("B1:B100"))) Is Nothing Then Exit Sub
Range("A1:Z100").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub