[MACRO ] Filtres automatiques excel
Résolu
Alex550445
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
Shalkare -
Shalkare -
Bonjour,
j'ai une feuille excel protégée en écriture avec des filtres automatiques sur plusieurs colonnes et j'aimerai automatiser ceci :
à l'ouverture du fichier je voudrai que tous les filtres se remettent à ALL
Est ce possible
d'avance Merci
j'ai une feuille excel protégée en écriture avec des filtres automatiques sur plusieurs colonnes et j'aimerai automatiser ceci :
à l'ouverture du fichier je voudrai que tous les filtres se remettent à ALL
Est ce possible
d'avance Merci
A voir également:
- [MACRO ] Filtres automatiques excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
7 réponses
re :
ActiveSheet.Unprotect "mdp"
Range("A1:AJ1").Select
Selection.AutoFilter ' Désactive les filtres
Selection.AutoFilter ' Active les filtres
Range("A1").Select
ActiveSheet.Protect "mdp"
astuce pour ne pas coder en dur le mdp :
sur une feuille masqué vérouillé, inscrire
en blanc sur fond blanc le [ mdp ]
Dim mdp As String
mdp = Sheets("feuille_masque_verouille").Range("A1").Value
ActiveSheet.Unprotect mdp
' suite du code
...
Lupin
ActiveSheet.Unprotect "mdp"
Range("A1:AJ1").Select
Selection.AutoFilter ' Désactive les filtres
Selection.AutoFilter ' Active les filtres
Range("A1").Select
ActiveSheet.Protect "mdp"
astuce pour ne pas coder en dur le mdp :
sur une feuille masqué vérouillé, inscrire
en blanc sur fond blanc le [ mdp ]
Dim mdp As String
mdp = Sheets("feuille_masque_verouille").Range("A1").Value
ActiveSheet.Unprotect mdp
' suite du code
...
Lupin
Merci Lupin, pour m'avoir répondu si vite,
en cherchant un peu j'ai pu résoudre mon problème de filtre automatique verrouillé, voici ce que ca donne :
Private Sub Workbook_Open()
Dim mdp As String
ActiveSheet.Unprotect "mdp"
Range("A2:I2").Select
Selection.AutoFilter
Selection.AutoFilter
Range("A2").Select
Feuil1.EnableAutoFilter = True
ActiveSheet.Protect "mdp", UserInterfaceOnly:=True
End Sub
en cherchant un peu j'ai pu résoudre mon problème de filtre automatique verrouillé, voici ce que ca donne :
Private Sub Workbook_Open()
Dim mdp As String
ActiveSheet.Unprotect "mdp"
Range("A2:I2").Select
Selection.AutoFilter
Selection.AutoFilter
Range("A2").Select
Feuil1.EnableAutoFilter = True
ActiveSheet.Protect "mdp", UserInterfaceOnly:=True
End Sub
Bonjour,
exemple :
Lupin
exemple :
Private Sub Workbook_Open()
Range("A1:K1").Select
Selection.AutoFilter ' Désactive les filtres
Selection.AutoFilter ' Active les filtres
Range("A1").Select
End Sub
'
Lupin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci beaucoup Lupin,
mais j'ai encore un ptit souci, car ca marche très bien sur une feuille excel non protégé mais ma feuille sera protégée et dans ce cas ca ne marche pas...
Est ce possible de faire marcher cette macro alors que les cellules ayant le filtre automatique sont protégées ?
d'avance merci
mais j'ai encore un ptit souci, car ca marche très bien sur une feuille excel non protégé mais ma feuille sera protégée et dans ce cas ca ne marche pas...
Est ce possible de faire marcher cette macro alors que les cellules ayant le filtre automatique sont protégées ?
d'avance merci
merci beaucoup
mais j'ai encore un ptit souci, tu vas dire que je suis chiant lol
pour l'astuce de la feuille masqué (pour le mot de pass) : impossible d'ôter la protection de la feuille une fois la macro active( par le menu outil, protection, ôter la protection de la feuille, bizarre, car tout marche bien si je le met directement dans la macro sinon il me met que le mot de pass n'est pas valide.
Je peux toujours proteger la macro pour eviter que l'on voit le mot de pass.
Par contre lorsqu'il reprotège la feuille le filtre automatique est verrouillé par la protection, comment puis je faire pour qu'il protège la feuille en autorisant les utilisateurs de cette feuille à utiliser le filtre automatique ?
encore merci
mais j'ai encore un ptit souci, tu vas dire que je suis chiant lol
pour l'astuce de la feuille masqué (pour le mot de pass) : impossible d'ôter la protection de la feuille une fois la macro active( par le menu outil, protection, ôter la protection de la feuille, bizarre, car tout marche bien si je le met directement dans la macro sinon il me met que le mot de pass n'est pas valide.
Je peux toujours proteger la macro pour eviter que l'on voit le mot de pass.
Par contre lorsqu'il reprotège la feuille le filtre automatique est verrouillé par la protection, comment puis je faire pour qu'il protège la feuille en autorisant les utilisateurs de cette feuille à utiliser le filtre automatique ?
encore merci
Bonjour ! Je sais que ce post date, mais je suis tombé dessus en cherchant la solution au même problème, et j'ai trouvé une solution "plus élégante":
Sub RemoveFilter()
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub
Si il y a un filtre dans la feuille, alors supprime le.
En espérant que ça puisse servir à quelqu'un, un jour.
Sub RemoveFilter()
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub
Si il y a un filtre dans la feuille, alors supprime le.
En espérant que ça puisse servir à quelqu'un, un jour.