enlève filtre sur plusieurs feuilles avec macro

[tinet]

bonjour le forum,

Je dois exécuter une macro en automatisme sur plusieurs feuilles.
je dois enlever un filtre.

pouvez-vous m'aider sur ma fonction

Dim I As Long
Dim NBOnglet As Byte

For NBOnglet = 3 To 34

    Sheets(NBOnglet).Select
    ActiveSheet.Unprotect Password:=Feuil07.Range("A1").Value

    
    Selection.AutoFilter
    Range("$D$11:$D$880").Select
    Selection.Copy
    Range("$L$11:$L$880").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Selection.AutoFilter
    Range("$c$11:$c$880").Select
    Selection.Copy
    Range("$m$11:$m$880").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
           ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Feuil07.Range("A1").Value
Next NBOnglet

a+

 

[Banzai64]

Re : enlève filtre sur plusieurs feuilles avec macro

Bonsoir
Avant de re-protéger ta feuille

On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

 

[Pierrot93]

Re : enlève filtre sur plusieurs feuilles avec macro

Bonsoir,

pour enlever le filtre auto :

Feuil1.AutoFilterMode = False

bonne soirée
@+

 

[tinet]

Re : enlève filtre sur plusieurs feuilles avec macro

Bonsoir Banzai64.

Merci