Tri avec opérateur "différent"

Bonjour,

Je voudrais sélectionner une liste de pièces comptables d'abord par la date de pièces puis par la date d'échéance.

Ci-dessous le code :

mois = "5.2016"
Selection.AutoFilter
'Tri sur date de pièce
ActiveSheet.Range("$A$1:$AF" & num_ligne).AutoFilter Field:=31, Criteria1:=mois
'Tri sur date d'échéance
ActiveSheet.Range("$A$1:$AF" & num_ligne).AutoFilter Field:=32, Criteria1:=<>mois

La ligne de code tri sur date d'échéance ne fonctionne pas, il me met "Erreur de compilation ; attendu paramètre nommé" et surligne le "Critérial" ....

Quelqu'un a une idée ?

Merci

Bonjour

Joins ton fichier pour voir ...

Bye !

ActiveWorkbook.Worksheets(le nom de ta feuille).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(le nom de ta feuille).Sort.SortFields.Add Key:=Range(ta premiere colonne de tri) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range(ta deuxieme colonne de tri) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(Nom de ta feuille).Sort
        .SetRange Range(ta plage de cellules)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Change les noms de feuilles et plages de cellule 1 et 2

Bonjour

Voilà le fichier

Rows("2:500").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("W2:W500") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("AG2:AG500" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A2:AI500")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Si tu as 500 lignes

Mais la ça marche pas parce que tu n'as pas de valeurs dans échéances

Bonjour

Ce que je voudrais obtenir en fait c'est :

-1 Ne prendre que les pièces dont la date dans la colonne AE est égal à 5.2016, d'où le code :

'Tri sur date de pièce
ActiveSheet.Range("$A$1:$AF$" & num_ligne).AutoFilter Field:=31, Criteria1:=mois

Là ça fonctionne,

2- Exclure les pièces dont la date dans la colonne AF est égale à 5.2016, d'où le code

'Tri sur date d'échéance
ActiveSheet.Range("$A$1:$AF$" & num_ligne).AutoFilter Field:=32, Criteria1:<>mois

Là ça plante avec le message "Erreur de compilation ; attendu paramètre nommé" et surligne le "Critérial" ....

Je comprends pas pourquoi la macro n'accepte pas le <> .....