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
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
Code:
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