Macro filtre

[gerard55]

Bonjour à tous,
J'ai fait une macro avec l'enregistreur pour qu'un filtre se mette en colonne 14. (code ci-dessous)
Sub Filtre()
Rows("14:14").Select
Selection.AutoFilter
Range("A14").Select
End Sub
ça marche bien si le filtre n'est pas activé. Mais si le filtre est activé, ça enlève le filtre. Je voudrais que le filtre reste activé en permanence.
Merci d'avance si quelqu'un a la solution
a+
Gérard

 

[Roland_M]

Re : Macro filtre

bonsoir,

voir exemple:

Public Sub AnnulerFiltreFeuilActive() 'affiche tout et annule filtre
On Error Resume Next
ActiveSheet.ShowAllData
ActiveSheet.AutoFilter.Sort.SortFields.Clear
On Error GoTo 0: Err.Clear
End Sub

Public Sub AnnulerSupprimerFiltreFeuil(F$)
On Error Resume Next
Sheets(F$).ShowAllData 'aff tout
Sheets(F$).AutoFilter.Sort.SortFields.Clear 'annule filtre
Sheets(F$).AutoFilterMode = False 'suppr filtre
On Error GoTo 0: Err.Clear
End Sub

 

[gerard55]

Re : Macro filtre

Merci ROLAND_M pour ce code.
a+