Trier par vba valeur autre que 0

[gagnonpeter]

Bonjour!
j'ai créé un fichier où je dois trier des données qui proviennent d'un autre onglets. Mon problème est que quand je fais mon tri (par macro), tout les cellules où c'est écrit "0" remonte en haut de ma liste. Serait-il possible d'écrire un code vba disant de trier seulement le cellules qui ne sont pas 0? Si oui, comment?

Merci à l'avance

Voir fichier

 

[pat01200]

Re : Trier par vba valeur autre que 0

Bonsoir,

Teste cette macro modifiée et dis-nous si cela te convient :

Sub FinTôt()
Range("A1:M1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="<>0", Operator:=xlAnd
    Range("B2:M160").Select
    Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom, DataOption1 _
        :=xlSortNormal
    Selection.AutoFilter
    Range("A1").Select
End Sub

 

[pat01200]

Re : Trier par vba valeur autre que 0

Re,

Pendant que j'y étais, j'ai fait un peu le ménage dans tes macros, tu devrais y gagner en ergonomie...

Fichier modifié en pièce jointe.

 

[gagnonpeter]

Re : Trier par vba valeur autre que 0

WOW!!!! Merci bcp, c'Est exactement ce que je voulais!

Merci!!!!