Exécution Macro et filtre qui ne fonctionne plus
MAX74509007
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 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
A voir également:
- Exécution Macro et filtre qui ne fonctionne plus
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Filtre whatsapp - Accueil - Messagerie instantanée
- Filtre teams - Accueil - Visio
- Jitbit macro recorder - Télécharger - Confidentialité
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 :
Pour conserver le filtre actif, essaies avec :
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