XL 2010 Filtre automatique désactivé après la ré-activation de la protection de la feuille

[ValerieH34]

Bonjour,
J'ai un problème de filtre automatique qui se désactive et ne se remet pas lorsque j'applique le programme suivant :

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

Comment faire pour que le filtre automatique s'active lorsque la page se protège ?
Merci pour votre aide.
Valérie

 

[Staple1600]

Bonjour à tous

ValerieH34 [bienvenue sur le forum]
Tu peux nous mettre à disposition un fichier exemple pour faire nos tests VBA?
(Pour joindre un fichier, clique sur le bouton: Téléverser un fichier)

 

[ValerieH34]

Bonjour JM
Merci
Voici le fichier
Cdt
Valérie

 

[Staple1600]

Re

En utilisant la foncton Tableau d'Excel, on peut faire comme çà pour ajouter une ligne

Sub Nouveau()
ActiveSheet.Unprotect "Password"
ActiveSheet.ListObjects("Tableau1").ListRows.Add
ActiveSheet.Protect "Password", True, True, True
End Sub

Pour transformer ton tableau en Tableau
Tu sélectionnes ton tableau et tu fais Insertion/Tableau

 

[ValerieH34]

Re,
Sauf que là mon problème, c'est qu'en cliquant sur la macro NOUVEAU, ça enlève le mot de passe, ca insere la ligne en copiant les formules du dessus et ca remet le mot de passe.
Le seul hic, c'est que en réacitvant le mot de passe, le filtre et le tri est désactivé.
Donc ce que j'ai besoin c'est que le filtre et le tri s'activent en meme temps que le mot de passe se réactive.

Merci
Cdt
Valérie

 

[Staple1600]

Re

Tu as regardé la copie d'écran de mon précédent message?
Tu as essayé ma suggestion (Insertion/Tableau) ?

Car sur ma copie, on voie que de nouvelles lignes sont insérées et que le filtre est activé, non ?

 

[ValerieH34]

Re,
Je n'avais pas vu
Ca ne fonctionne pas
Je n'ai pas accès à insertion tableau car la feuille est protégée et si elle n'est pas protégée, je ne peux pas le créer car il me demande de désactiver les filtres
Cdt
Valérie

 

[ValerieH34]

Re,
Finalement, il fallait juste ajouter

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

Bonne journée
Cdt
Valérie