Exécution Macro et filtre qui ne fonctionne plus

Fermé

MAX74509007 - 6 févr. 2019 à 17:12
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 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

A voir également:

Exécution Macro et filtre qui ne fonctionne plus
Photo filtre gratuit - Télécharger - Retouche d'image
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
6 févr. 2019 à 18:32

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

Discussions similaires

VBA erreur 1004

comment contourner la fonction FILTRE

Excel ne filtre pas les derniere donnée ecrite

Bibliothèque

Discussions similaires

Newsletters