[Résolu] Réinitialiser un filtre sans réinitialiser le tri !

[djodjodjo]

Bonjour à tous,

Aujourd'hui un petit souci sur les filtres et le tri, j'ai le code suivant :

With Sheets("Mafeuille")
If .FilterMode = True Then .ShowAllData
End With

qui fonctionne très bien pour "remettre mes filtres à zéro". Le problème c'est que ça enlève aussi le tri de A à Z sur une de mes colonnes, alors que je dois impérativement garder ce tri.

J'ai pensé à créer une 2ème macro qui réactiverait le tri de A à Z sur la colonne après l'exécution de la 1ère macro:

ActiveWorkbook.Worksheets("Mafeuille").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Mafeuille").AutoFilter.Sort.SortFields.Add Key:= _
Range("F9:F684"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Mafeuille").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

MAIS cette colonne en question peut changer de place dons si ça arrive alors à cause du Range("F9:F684") ça va me trier la mauvaise colonne de A à Z...comment faire ?

Merci d'avance !

 

[pierrejean]

Re : Réinitialiser un filtre sans réinitialiser le tri !

bonjour 3djo

La colonne en question a-t-elle un titre ?

 

[djodjodjo]

Re : Réinitialiser un filtre sans réinitialiser le tri !

Bonjour pierrejean,

oui, elle possède un titre

 

[pierrejean]

Re : Réinitialiser un filtre sans réinitialiser le tri !

Re

sous condition que le titre n'apparaisse qu'une seule fois dans la feuille
nb: remplacer "titre" par le titre de la colonne

ActiveWorkbook.Worksheets("Mafeuille").AutoFilter.Sort.SortFields.Clear
 
Set c = ActiveSheet.Cells.Find("titre", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  Set fin = c.Offset(65536 - c.Row).End(xlUp)
  Set plage = Range(c, fin)
End If
 
ActiveWorkbook.Worksheets("Mafeuille").AutoFilter.Sort.SortFields.Add Key:= _
plage , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Mafeuille").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

 

[djodjodjo]

Re : Réinitialiser un filtre sans réinitialiser le tri !

Merci pierrejean ça fonctionne très bien. Juste une question:

J'imagine que ActiveSheet.Cells.Find va s'arrêter de chercher dès qu'il aura trouvé "titre" pour la première fois. Comment cette fonction effectue-t-elle la recherche? Par ligne puis par colonne, par colonne puis par ligne ? Au cas où "titre" devrait être présent à deux endroits, que j'impose qu'il ne soit pas avant une telle ligne ou une telle colonne.

Merci d'avance

 

[djodjodjo]

Re : Réinitialiser un filtre sans réinitialiser le tri !

Pierrejean,

J'ai juste modifié ton code en mettant cette partie dans la 2ème boucle If sinon il y a une erreur '13' si "titre" a changé dans la feuille

ActiveWorkbook.Worksheets("Projets").AutoFilter.Sort.SortFields.Add Key:= _
        plage, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Projets").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With

 

[pierrejean]

Re : Réinitialiser un filtre sans réinitialiser le tri !

Re

J'avoue ne pas savoir comment find cherche dans le cas ou ou la recherche est effectuée sur Cells
Tu peux remplacer Cells par la plage ou tu es sur de trouver "titre" (ex: Range("A1:W10")

 

[djodjodjo]

Re : Réinitialiser un filtre sans réinitialiser le tri !

Ok ça marche ! Merci pour tout pierrejean !