Tri automatique d'une colonne

[AMETROLOGIE]

Bonjour à toutes et à tous,

J'ai cherché dans le forum pour faire un tri automatique sur une colonne d'un tableau et malgré mes essais je n'ai pas réussi à l'appliquer.
Pouvez-vous m'aider à réaliser le tri automatique sur le fichier joint svp?

Je vous remercie d'avance pour votre aide.

Bonne journée.

 

[JHA]

Re : Tri automatique d'une colonne

Bonjour à tous,

un essai avec la fonction rang

JHA

 

[reinruof77]

Re : Tri automatique d'une colonne

En esperant que cela te convienne.

 

[ralph45]

Re : Tri automatique d'une colonne

Bonjour AMETROLOGIE,

Sans plus de détails, j'ai effectué en VBA un tri automatique décroissant sur la colonne "Total cumulé", dès l'ouverture du fichier.
Voir PJ. A+

 

[AMETROLOGIE]

Re : Tri automatique d'une colonne

Merci Ralph45, ça marche super.
Mais comment puis-je voir ce que tu as écris dans la VBA pour que je l'applique à d'autres tableaux?

Merci.

 

[reinruof77]

Re : Tri automatique d'une colonne

Voici le code de Ralph45

Sub auto_open()
Range("H4").Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("G4").Select
MsgBox "Tri effectué !"
End Sub

C'est a peu de chose prés ce que je t'avais transmi.

 

[AMETROLOGIE]

Re : Tri automatique d'une colonne

Merci pour le code mais quand je veux enregistrer ça me met l'erreur ci-jointe.

 

[JCGL]

Re : Tri automatique d'une colonne

Bonjour à tous,

Il faut enregistrer le fichier avec l'extension .xlsm (fichier XL > 2007 qui contient des macros)

Un autre code :

Option Explicit


Sub Tri()
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("H5:H100"), SortOn:=xlSortOnValues, Order:=xlDescending
        .SetRange Range("G4:H100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("G4").Select
End Sub

A + à tous

 

[AMETROLOGIE]

Re : Tri automatique d'une colonne

Merci beaucoup.
J'aimerais ajouter un bouton et quand je clique dessus ca fait le tri.
Pouvez-vous m'aider???

 

[JCGL]

Re : Tri automatique d'une colonne

Bonjour à tous,

Ton fichier avec un bouton

A + à tous

 

[AMETROLOGIE]

Re : Tri automatique d'une colonne

C'est super. Merci beaucoup.