utilisation filtre

[francis79]

bonsoir,
j'utilise un tableau avec macros et bou boutons de commande macros sur le tableau
le tableau est en mode protection,donc impossibilité d'utilisr les filtres.
pour utiliser filtres,il y a deux solutions

-soit enlever protection feuille
-soit passer Contents:=False, dans la macro "afficher_personnel_présents"

mais le problème,c'est que toutes les colonnes sont déprotègées

je voudrais utiliser le filtre seulement sur la colonne I
alors que dans la macro je suis en AutoFilter Field:=1 soit colonne A
toute en étant en protection sur les autres colonnes

ci-dessous les macros

merçi de votre aide
francis

Public MdP As String
Sub auto_open()
Range("a10").Activate
ActiveSheet.Protect

End Sub
Sub auto_closed()
ActiveSheet.Unprotect

End Sub

Sub RAZ_présent()
'
' raz_CO Macro
' Macro enregistrée le 26/01/2009
'

'
    Range("A11:A70").Select
    Selection.ClearContents
    Range("a11").Select
    End Sub


Sub afficher_personnel_présents()
'
' Macro enregistrée le 26/01/2009
'
   
'
    ActiveSheet.Unprotect
    MdP = "zaza"
    
    Selection.AutoFilter Field:=1, Criteria1:="x", Operator:=xlAnd
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub afficher_tout_le_personnel()
'
' afficher_tous Macro
' Macro enregistrée le 26/01/2009
':

    ActiveSheet.Unprotect
    MdP = "zaza"
    
    
    
    Selection.AutoFilter Field:=1, Criteria1:="x", Operator:=xlAnd
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

    ActiveSheet.Unprotect
    password = "zaza"
    ActiveSheet.ShowAllData
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub


Sub RAZ_jours()
'
' RAZ_jours Macro
' Macro enregistrée le 26/01/2009
'
    Range("A11:A70").Select
    Selection.ClearContents
    Range("a11").Select
'
    Range("E11:E70").Select
    Selection.ClearContents
    Range("a11").Select
'
    Range("G11:G70").Select
    ActiveSheet.Protect
    Selection.ClearContents
    ActiveWindow.LargeScroll Down:=-9
    ActiveWindow.ScrollRow = 11
    Range("A10").Select
End Sub

 

[Excel-lent]

Re : utilisation filtre

Bonsoir Francis79,

Cela ne fonctionne pas, car ta feuille est protégé! Tout simplement.

Enlève la protection, tu verras que cela fonctionne à la perfection.

Maintenant, il faut savoir si tu veux que :
-> la feuille soit protégé ou non?
-> pas de trie ?

Sinon, si tu veux le trie et la feuille protégé, je vois deux solutions :
-> enlever la protection
ou
-> faire le trie via une macro. Rajoutant ainsi un bouton "trie croissant", "trie décroissant". Ainsi ta feuille sera toujours protégé.

A toi de voir ce qui t'arrange!

Attention quand même à ne pas avoir quarante boutons, sinon tu devras suivre un traitement contre la varicelle 😀

Plus sérieusement, problèmes des boutons en quantité : perte de clarté, plus de place pour le reste. A moins de faire une page "sommaire", qui gère tout est sur laquelle tu mets tout tes boutons (l'idéal serait de les trier par type, catégorie).

Bonne soirée

 

[francis79]

Re : utilisation filtre

re
pour excel-lent
j'opte pour l'option macro
peut-tu mettre le fichier avec cette option
merci beaucoup
francis

 

[Excel-lent]

Re : utilisation filtre

Re,

Voici ci-joint ton bonheur.

Ca correspond mieux à tes espérances?

Bonne fin de soirée

 

[francis79]

Re : utilisation filtre

re,

pour excel-lent,

parfait, c'est ce que je voulais

merci beaucoup de ton aide

francis

 

[francis79]

Re : utilisation filtre

re,
pour excel-lent

juste un petit souci

actuellement sur ton fichier, seul les colonnes A E G sont déprotègées

comment rajouter les colonnes J et K et également la ligne 4

francis

 

[Excel-lent]

Re : utilisation filtre

Bonsoir Francis79,


Comment j'ai fais :
-> j'ai enlevé la protection de ta feuille
-> j'ai sélectionné TOUTES les cellules de l'onglet de [A1] à [IV65536]

Puis j'ai cliqué sur "format" / "cellule..." / onglet "protection"
et j'ai coché "verrouillé"
(Etape normalement inutile, car toutes les cellules sont par défaut en statut verrouillé! - mais n'étant pas sûr de ce que tu avais fais, j'ai préféré)

Ensuite j'ai sélectionné toutes les cellules que tu voulais laisser dispo à l'utilisateur (malgré la protection de ta feuille) : colonnes A, E et G (j'ai zappé J et K! méa culpa).

-> puis j'ai sélectionné les colonnes A, E et G

Puis j'ai cliqué sur "format" / "cellule..." / onglet "protection"
et j'ai décoché "verrouillé"

Puis j'ai re-protégé ta feuille.

Ainsi, lorsque ta feuille est protégé, l'utilisateur n'a accès qu'aux cellules "décocher"

Donc si tu veux dé-protéger les colonnes J, K il te suffit de sélectionner ces colonnes puis décoché "verrouillé"

Idem pour la ligne 4.

Sans oublier avant de déprotéger ta feuille avec : "outil"/"protection"/ "oter la protection"

Et la reprotéger à la fin : "outil"/"protection"/"protéger la feuille"

PS. : s'il y a PLUS de cellules laissées accessibles que verrouillées, évidement tu ferras l'inverse 😉
-> tout sélectionner : décocher "verrouiller"
-> sélectionner les quelques cellules, lignes, et/ou colonnes puis cocher "verrouiller"

Bonne soirée

 

[francis79]

Re : utilisation filtre

re,

merci pour ton expliquation détaillée

a bientot
francis