[MACRO ] Filtres automatiques excel [Résolu/Fermé]

Signaler
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
-
 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

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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60549 internautes nous ont dit merci ce mois-ci

Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60549 internautes nous ont dit merci ce mois-ci

Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
up

Bonjour,

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
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
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
Messages postés
11
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
4 juillet 2007
5
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
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.