High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

[MACRO ] Filtres automatiques excel

Dernière réponse le 1 jui 2007 à 14:16:13 Alex550445, le 28 jun 2007 à 20:14:03 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « [MACRO ] Filtres automatiques excel » dans :
Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...
Exécuter une macro VoirExécuter une macro Excel et Calc proposent plusieurs façons d’exécuter une macro : en la sélectionnant dans une liste, dans la boîte de dialogue Macro ; par un raccourci clavier ; en l’attachant à un bouton de la barre d’outils ; ...
Posez votre question Répondre

1

Alex550445, le 29 jun 2007 à 18:03:26

Up

   
Répondre à Alex550445

2

Lupin.A, le 29 jun 2007 à 20:38:33

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

   
Répondre à Lupin.A

3

Alex550445, le 29 jun 2007 à 21:10:51

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

   
Répondre à Alex550445

4

Lupin.A, le 30 jun 2007 à 13:46:14
  • +1

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

   
Répondre à Lupin.A

5

Alex550445, le 30 jun 2007 à 14:43:09

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

   
Répondre à Alex550445

6

 Alex550445, le 1 jui 2007 à 14:16:13
  • +1

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

   
Répondre à Alex550445
Posez votre question Répondre
Ils ont besoin de votre aide