XL 2021 Filtres et tris qui ne fonctionnent pas après exécution d'une macro

[leo13]

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.

 

[Compte Supprimé 979]

Bonjour Leo13

Pour le filtre, essayez plutôt ainsi

    ' 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

A+

 

[leo13]

Bonjour Leo13

Pour le filtre, essayez plutôt ainsi

    ' 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

A+

Bonjour Leo13

Pour le filtre, essayez plutôt ainsi

    ' 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

A+

Bonjour et merci pour votre réponse, ça fonctionne parfaitement pour les filtres. Dommage que je ne puisse pas trier. Merci encore!

 

[leo13]

Bonjour et merci pour votre réponse, ça fonctionne parfaitement pour les filtres. Dommage que je ne puisse pas trier. Merci encore!

Bonjour Leo13

Pour le filtre, essayez plutôt ainsi

    ' 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

A+

Bonjour Leo13

Pour le filtre, essayez plutôt ainsi

    ' 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

A+

Bonjour et merci pour votre réponse, ça fonctionne parfaitement pour les filtres. Dommage que je ne puisse pas trier. Merci encore!

 

[leo13]

Bonjour et merci pour votre réponse, ça fonctionne parfaitement pour les filtres. Dommage que je ne puisse pas trier. Merci encore!

Je viens de m'apercevoir que la déprotection ne nécessite plus de mot de passe?

 

[leo13]

Bonjour et merci pour votre réponse, ça fonctionne parfaitement pour les filtres. Dommage que je ne puisse pas trier. Merci encore!

 

[leo13]

Je viens de m'apercevoir que la déprotection ne nécessite plus de mot de passe?

 

[Compte Supprimé 979]

re,

C'est un paramètre qu'il suffit de rajouter, faut tout vous dire

    ' 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

 

[leo13]

re,

C'est un paramètre qu'il suffit de rajouter, faut tout vous dire

    ' 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

Désolé mais je ne maitrise pas VBA
Merci

 

[Compte Supprimé 979]

Re,
Pas besoin de savoir "maitriser", il suffit de vouloir se renseigner... mais ça aujourd'hui

Méthode Worksheet.Protect (Excel)

Rubrique de référence sur Office VBA

learn.microsoft.com