High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Filtre Automatique + Macro + Feuille protégée

Dernière réponse le 2 déc 2008 à 12:57:21 MikeThe7, le 2 déc 2008 à 12:05:57 
 Signaler ce message aux modérateurs

Bonjour,

Voilà la situation. Je travaille sur Excel 2003.

Sur la feuille 1, j'ai un tableau de 17 colonnes auquel j'ai appliqué le filtre automatique.
Afin d'éviter de sélectionner chaque colonne et cliquer sur "TOUS" pour afficher toutes les lignes du tableau, j'ai créé une Macro simple qui fait cela en 1 clique.
La Macro fonctionne très bien tant que je ne "Protège" pas la feuille.
Lorsque je "Protège la feuille" en faisant attention d'autoriser l'utilisation du filtre automatique, la Macro s'arrête sur la première colonne où elle doit normalement "Afficher Tout".
Je dois absolument "Protège la feuille", car si un utilisateur tri par ordre croissant ou décroissant, toutes les relations avec les autres feuilles s'en trouvent changées.
Une autre solution, plutôt que de "Protège la feuille" serait d'invalider la possibilité de tri par ordre croissant ou décroissant dans le filtre automatique.

Voici le début de ma Macro :
Sheets("Tableau Complet").Select
Range("A20").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
etc...

Merci à tous ceux qui prendront le temps de me répondre.

Configuration: Windows XP
Firefox 3.0.4

Meilleures réponses pour « Filtre Automatique + Macro + Feuille protégée » dans :
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

lermite222, le 2 déc 2008 à 12:14:32

Bonjour, 

  Sheets("Tableau Complet").UnProtect Password:="Toto"
    Sheets("Tableau Complet").Select 
    Range("A20").Select 
    Selection.AutoFilter Field:=1 
    Selection.AutoFilter Field:=2 
    Selection.AutoFilter Field:=3 
    Selection.AutoFilter Field:=4 
    etc... 
   Sheets("Tableau Complet").Protect Password:="Toto"

A+

L'expérience instruit plus sûrement que le conseil. (André Gide)  
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

   
Répondre à lermite222

2

 MikeThe7, le 2 déc 2008 à 12:57:21

Un grand MERCI à toi lermite222.

C'est exactement la solution que je cherchais, adaptée en tous points à ma situation.

J'ai testé, cela fonctionne parfaitement, je vais pouvoir "Protéger" mes feuilles comme un petit fou !

Mike.

Nul n'est étranger à ce qui lui arrive...

   
Répondre à MikeThe7
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net