Bonjour à tous,
Malgré toutes mes recherches ( et copiage de codes) , je sèche :
Voici le code associé à un bouton "tri" dans une base de données clients - Il me permet de faire sauter la protection de la feuille et des formules pendant le tri, puis de la remettre automatiquement
Mon souci est que je voudrais laisser cochées 4 options qui se décochent à la reprotection de la feuille :
tri / filtre automatique / modifier des objets / modifier des scénarios
Qui peut m'aider ? Merci beaucoup par avance
Le code :
Sub Tri_clients()
'
' Tri_clients Macro
Columns("G:G").Select
ActiveSheet.Unprotect ("MDP")
ActiveWorkbook.Worksheets("parametres").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("parametres").Sort.SortFields.Add2 Key:=Range("G1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("parametres").Sort
.SetRange Range("G22000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
ActiveSheet.Protect ("11MDP")
End With
Range("G2").Select
End Sub
Malgré toutes mes recherches ( et copiage de codes) , je sèche :
Voici le code associé à un bouton "tri" dans une base de données clients - Il me permet de faire sauter la protection de la feuille et des formules pendant le tri, puis de la remettre automatiquement
Mon souci est que je voudrais laisser cochées 4 options qui se décochent à la reprotection de la feuille :
tri / filtre automatique / modifier des objets / modifier des scénarios
Qui peut m'aider ? Merci beaucoup par avance
Le code :
Sub Tri_clients()
'
' Tri_clients Macro
Columns("G:G").Select
ActiveSheet.Unprotect ("MDP")
ActiveWorkbook.Worksheets("parametres").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("parametres").Sort.SortFields.Add2 Key:=Range("G1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("parametres").Sort
.SetRange Range("G22000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
ActiveSheet.Protect ("11MDP")
End With
Range("G2").Select
End Sub