[MACRO ] Filtres automatiques excel
Résolu/Fermé
Alex550445
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
-
28 juin 2007 à 20:14
Shalkare - 12 avril 2012 à 15:48
Shalkare - 12 avril 2012 à 15:48
A voir également:
- [MACRO ] Filtres automatiques excel
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Macro word - Guide
- Si et excel - Guide
7 réponses
Utilisateur anonyme
30 juin 2007 à 13:46
30 juin 2007 à 13:46
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
Alex550445
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
1 juil. 2007 à 14:16
1 juil. 2007 à 14:16
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
Alex550445
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
29 juin 2007 à 18:03
29 juin 2007 à 18:03
up
Utilisateur anonyme
29 juin 2007 à 20:38
29 juin 2007 à 20:38
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
Alex550445
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
29 juin 2007 à 21:10
29 juin 2007 à 21:10
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
Alex550445
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
30 juin 2007 à 14:43
30 juin 2007 à 14:43
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.
