Bonjour, je sollicite votre aide car j'ai un tableau avec des filtres qui est protégé. J'ai créé une petite macro qui insère une ligne, mais lorsque ma macro est exécutée, les filtres et les tris ne fonctionnent plus.
Pourriez vous m'aider à résoudre ce problème et à améliorer ma macro afin que les filtres et les tris continuent de fonctionner correctement après l'insertion d'une ligne ?
Merci d'avance
(ma ligne est insérer de A10:N9, mais filtres sont de A6:N6)
Ci-joint, mon fichier illustrant le problème constatés.
' Réactiver la protection de la feuille avec l'option UseAutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True
En revanche pour le tri, à ma connaissance c'est impossible sur des TS avec feuille protégée
' Réactiver la protection de la feuille avec l'option UseAutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True
En revanche pour le tri, à ma connaissance c'est impossible sur des TS avec feuille protégée
' Réactiver la protection de la feuille avec l'option UseAutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True
En revanche pour le tri, à ma connaissance c'est impossible sur des TS avec feuille protégée
' Réactiver la protection de la feuille avec l'option UseAutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True
En revanche pour le tri, à ma connaissance c'est impossible sur des TS avec feuille protégée
' Réactiver la protection de la feuille avec l'option UseAutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True
En revanche pour le tri, à ma connaissance c'est impossible sur des TS avec feuille protégée
C'est un paramètre qu'il suffit de rajouter, faut tout vous dire
VB:
' Réactiver la protection de la feuille avec l'option UseAutoFilter
ActiveSheet.Protect Password:="xxx", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True
C'est un paramètre qu'il suffit de rajouter, faut tout vous dire
VB:
' Réactiver la protection de la feuille avec l'option UseAutoFilter
ActiveSheet.Protect Password:="xxx", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True