Discussion :

[Jacksun]

Bonjour

J’essaie de trier un tableau de 12 colonnes sur( actuellement) 195 lignes en utilisant le code suivant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 ActiveWorkbook.Worksheets("Source").Sort.SortFields.Add2 Key:=Range("G2:G195") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

Mais le nombre de lignes est variable et je ne trouve pas la notation de ‘Range’ correcte pour tenir compte du nombre actuel (variable) de lignes.

En utilisant par exemple le code suivant cela ne fonctionne (bien-sûr) pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Endrow = Range("A" & "65536").End(xlUp).Row
 Range("G2:G" & Endrow)

Merci pour toute suggestion utile à mon problème.

[EricDgn]

Bonjour,

Une possibilité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    With ActiveWorkbook.Worksheets("Source").Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("G:G"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:L" & Range("A" & "65536").End(xlUp).Row)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Cordialement.