Tri croissant tableau en VBA

Bonjour à tous,

J'ai besoin de votre aide.

Je dois faire un tri mensuel sur le mois M. pour voir les véhicules (N° codification véhicules) qui ont le plus consommés.

Je souhaiterai faire un tri croissant de mon tableau en utilisant une Macro. Je joins a cet effet mon fichier.

Pouvez vous m'aider s'il vous plait.

Bonjour

Le mois M, oui mais encore ?

Pourquoi VBA alors qu'il y a plein de possibilités ?

Bonjour,

Bonjour 78chris,

Une proposition à étudier.

Power Query pour transformer (structurer) les données et un TCD pour synthétiser.

Cdlt.

Je voudrai autamatiser le tableau

Merci Jean Eric.

Présenter ainsi me va.

Jean-Eric

Désolé encore de te déranger.

Mais j'aurai voulu avoir aussi les mois précédents pour faire les comparaisons.

En fait mon tri doit être fait sur tout le tableau entier.

Re,

Donne un exemple de résultat.

Cdlt.

Bonjour à tous,

Désolé de ne pas avoir donner de news.

J'ai utilisé la macro ci-dessous. Mais il me fait un filtre et non un tri croissant. Je joins le fichier a comme exemple de résultat.

Je souhaiterai remplacer "AutoFilter Field" en tri.

Sub Top30dumois()

'

'Filtrer le top 30 du mois

Range("A8").Select

ActiveSheet.Range("$A$8:$Y$1980").AutoFilter Field:=18, Criteria1:="30", _

Operator:=xlTop10Items

End Sub

Bonjour,

Essaie ceci :

Public Sub SortData()
Dim TD As Range, lCol As Long
    lCol = 18
    Set TD = ActiveSheet.Cells(8, 1).CurrentRegion
    TD.Sort key1:=TD.Cells(1, lCol), order1:=xlDescending, Header:=xlYes
    'TD.AutoFilter field:=lCol, Criteria1:=30, Operator:=xlTop10Items
End Sub

Si le tri ne convient pas, remplacer xlDescending par xlAscending.

Cdlt.

Impeccable Jean-Eric.

Merci