Menu

Exécution Macro et filtre qui ne fonctionne plus

- - Dernière réponse : Patrice33740
Messages postés
7625
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
21 février 2019
- 6 févr. 2019 à 18:32
Bonjour,

J'ai crée une macro avec un bouton qui me permet un "reset" de mes filtres et d'effacer les données de certaines cellules. Je souhaite également qu'elle fonctionne lorsque la feuille est protégée.

La Macro fonctionne : les colonnes filtrées réapparaissent, mais le filtre est bloqué. Autrement dit, je ne peux plus filtrer sur mon fichier sans ôter la protection de la feuille.

Pouvez-vous m'aider ?


Voici la macro:

Sub ClearsheetHB()
'
' ClearsheetHuisseriesBois Macro

ActiveSheet.Unprotect "MINT"
'
Sheets("HB").Range("H7:H116").ClearContents

ActiveSheet.ShowAllData

ActiveSheet.Protect "MINT", True, True, True

End Sub
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7625
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
21 février 2019
1639
0
Merci
Bonjour,

NB : Quand tu postes du code sur le forum ...
Utilises les balises de code avec indication du langage (=coloration syntaxique)
Explications disponibles ici : Comment utiliser les balises de code
Exemple :
Sub UtiliserLesBalises()
  MsgBox "Merci d'utiliser les balises de code"
End Sub


Pour conserver le filtre actif, essaies avec :
ActiveSheet.Protect Password:="MINT", DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFiltering:=True

Commenter la réponse de Patrice33740