Discussion :

[ValerieH34]

Bonjour,
J'ai un problème de filtre automatique qui se désactive et ne se remet pas.
J'ai un bouton NOUVEAU qui s'exécute avec le VBA suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    Sub Nouvel()
          ActiveSheet.Unprotect "Password"
               Rows("6:6").Copy
               Rows("7:7").Insert Shift:=xlDown
               Application.CutCopyMode = False
               Range("a6:cc6").SpecialCells(xlCellTypeConstants).ClearContents
               Range("a6").Select
         ActiveSheet.Protect "Password", True, True, True
    End Sub

Seulement, cela désactive le filtre automatique lorsque la page se protège.

Comment faire pour que la fonction UTILISER LE FILTRE AUTOMATIQUE soit cochée lorsque l'on protège de nouveau la feuille en VBA ?

Merci pour votre aide.
Valérie

[Invité]

Bonjour,

Essayez avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.Protect "Password", True, True, True, AllowFiltering:=True

Cordialement.

[ValerieH34]

Bonjour Eric,
Merci c'est exactement ça
Ca fonctionne
Un grand grand merci
Cdt
Valérie