Bonjour à tous,
J'ai un tableau dans lequel je saisis différentes données. Suite à cette saisie un calcul automatique se fait dans le cellule "L" et suivant le total un prix est accordé, prix qui s'affiche dans la cellule "M".
Hors, je souhaiterai qu'un tri se fasse automatiquement lors de la saisie, c'est à dire que le candidat ayant le plus grand nombre de points soit toujours en tête de tableau et les autres à la suite par ordre de valeur de points.
Je n'arrive pas à faire la macro, je sais faire une macro de tri mais pas que celle-ci fonctionne quand je change de ligne. Il faut également que les lignes vides ne soient pas prises en compte dans le tri.
Merci par avance pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Range("A3:M249").Select ActiveWorkbook.Worksheets("Général").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Général").Sort.SortFields.Add Key:=Range("L4:L249" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Général").Sort .SetRange Range("A3:M249") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A3").Select End Sub
Amicalement
René
Partager