Macro filtre

gerard55 · 13 Janvier 2015

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 · 13 Janvier 2015

Re : Macro filtre

bonsoir,

voir exemple:

Code:

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 · 14 Janvier 2015

Re : Macro filtre

Merci ROLAND_M pour ce code.
a+

Macro filtre

gerard55

XLDnaute Occasionnel

Roland_M

XLDnaute Barbatruc

gerard55

XLDnaute Occasionnel

Discussions similaires