Macro bloque le filtre

[Cemoi 031]

Bonjour le forum,

J'ai tenté une modification de mon tableau qui me pose un problème, il est utilisé par plusieurs aussi je l'ai protégé par un mot de passe "123" que je ne donne pas, il est composé de 2 feuilles identiques régulièrement modifié aussi pour une question de classement j'ai tenté une macro pour reclasser dans l'ordre le tableau qui fonctionne mais bloque le filtre automatique:

Sub TrieMater()
ActiveSheet.Unprotect "123"
Range("A9:G101").Select
Selection.Sort Key1:=Range("A9"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A8").Select
ActiveSheet.Protect "123"
End Sub

J'ai essayé d'insérer dans la macro à la protection l'utilisation du filtre automatique mais la macro signale une erreur et je ne peux y mettre le mot de passe:

Sub Macro1()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub

si quelqu'un peu m'aider mercie d'avance.
Merci et bonne journée

 

[Excel_lent]

Re : Macro bloque le filtre

Salut,

Coupe les 2 lignes de tri ainsi :

Selection.Sort Key1:=Range("A9"), Order1:=xlDescending

Selection.Sort Key1:=Range("A9"), Order1:=xlAscending

Attention C. P. # C.P. (les espaces sont pris en compte) !

@+

 

[Cemoi 031]

Re : Macro bloque le filtre

Bonjour Excel_Lent,

La fonction de trie marche bien, mais une fois que la macro est utilisé le filtre automatique est bloqué c'est lui qui me pose problème car je ne peux donner le mot de passe.

Merci de ton aide

 

[Pierrot93]

Re : Macro bloque le filtre

Bonjour Cemoi, Excel Lent

essaye peut être le code ci dessous à placer dans le module "ThisWorkBook" :

Permet aus macros de fonctionner sans déprotection (utilisation de l'argment "UserInterfaceOnly"), tu pourras enlever les lignes de code relatives à la protection.

Autorise l'utilisation des filtres automatiques par les utilisateurs.

Boucle et protège toutes les feuilles à l'ouverture du classeur (procédure évènementielle).

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.EnableAutoFilter = True
    ws.Protect "123", , , , True
Next ws
End Sub

bonne soirée
@+

 

[Cemoi 031]

Re : Macro bloque le filtre

Pierrot et Excel_Lent

Merci de votre aide j'ai pas tout vérifier mais ça à l'air d'être bon, il faut que je le vérifie sur le tableau complet mais encore une fois votre aide me fait découvrir une manip que je ne connaissais pas.

Bonne soirée