VBA Avec Autofilter dynamique sur les entêtes de colonnes

[Emile63]

Bonjour à tous,

Je souhaite trier une base de données avec VBA, et l'enregistreur de macros donne quelque chose comme ça (Ci-dessous), mon problème c'est que comme la BDD augmente, par exemple le Range ("C4:C1000") eux restent figé à 1000, comment faire en sorte qu'il augmente dynamiquement, ou que le tri se fasse sur la base de la colonne ou de l'entête, plutôt qu'une plage définie...
Merci d'avance pour votre aide.

Application.Goto Reference:="MaBase"
ActiveWorkbook.Worksheets("MesDonnées").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MesDonnées").AutoFilter.Sort.SortFields.Add2 Key:=Range("A4:A10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("MesDonnées").AutoFilter.Sort.SortFields.Add2 Key:=Range("D4:D10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("MesDonnées").AutoFilter.Sort.SortFields.Add2 Key:=Range("E4:E10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("MesDonnées").AutoFilter.Sort.SortFields.Add2 Key:=Range("B4:B10000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("MesDonnées").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Bonne fin de journée,
Emile

[MichD]

Le 02/07/22 à 13:28, Emile63 a écrit :

Bonjour,

Sub test()
Dim Rg As Range, Ligne As Long

With ThisWorkbook.Worksheets("MesDonnées")
Ligne = .Range("A:E").Find("*", LookIn:=xlFormulas, _
SearchDirection:=xlPrevious).Row
Set Rg = .Range("A4:E" & Ligne)
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Rg.Columns(1), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Rg.Columns(4), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Rg.Columns(5), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Rg.Columns(2), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortNormal
With .Sort
.SetRange Rg
.Header = False

.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End With
End Sub

MichD

[Emile63]

Bonsoir MichD,

Parfait, comme toujours, merci beaucoup. :)
Bonne soirée,
Emile