Exécution Macro et filtre qui ne fonctionne plus
MAX74509007
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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
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
1 réponse
-
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
