Menu

Trier un tableau excel automatiquement [Résolu/Fermé]

Julien_R 131 Messages postés mardi 10 mai 2005Date d'inscription 18 avril 2013 Dernière intervention - 1 juil. 2010 à 11:28 - Dernière réponse : Vaucluse 21842 Messages postés lundi 23 juillet 2007Date d'inscriptionContributeurStatut 16 avril 2018 Dernière intervention
- 1 juil. 2010 à 12:01
Bonjour,

j'aimerai effectuer un tri automatique d'un classement de point
j'aimerai que lorsque le nombre de point est modifié, le tri se fasse automatiquement dans le classement.
je me suis renseigné sur différent forum mais je n'ai pas trouvé de question identique

merci d'avance pour votre aide
Afficher la suite 

1 réponse

Vaucluse 21842 Messages postés lundi 23 juillet 2007Date d'inscriptionContributeurStatut 16 avril 2018 Dernière intervention - 1 juil. 2010 à 12:01
0
Utile
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