Discussion :

[NEC14]

Bonjour,

J'ai un tableau Excel comprenant 12 colonnes de A à M

Les en-têtes de colonnes se trouvent en ligne 3 (A3:M3)

Dans la colonne L il y a un total.

J'aimerai, si cela est possible, faire un tri automatique sur cette colonne au-fur et à mesure de la saisie. Le tri doit être en ordre décroissant du plus grand au plus petit.

Par exemple : mon premier résultat donne 59.00, mon deuxième résultat lui est de 63.00, alors le 2ème résultats passe en 1ère ligne. Et ainsi de suite.

Comment puis-je faire ?

Merci par avance

René

[AbsolutAlex]

Bonjour,

Je partirai la dessus :

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
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Application.ScreenUpdating = False
 
    fin_de_page = Range("L3").End(xlDown).Row
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("L3:L" & fin_de_page) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A3:M" & fin_de_page)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    Application.ScreenUpdating = True
 
End Sub