Condition verification tri avant execution macro

[Beber75]

Bonjour,
J'ai créé une petite macro qui permet aux utilisateurs de "defiltrer" une feuille excel protégée juste en cliquant sur un bouton

Sub Test()


ActiveSheet.Unprotect Password:="XXXX"
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, Password:="XXXX"



End Sub

Mais lorsqu'un utilisateur execute cette macro alors qu'il n'y a pas de filtre activé, la macro bugge et laisse la feuille déproteger...

Je voudrais faire un IF où avant l'execution de la macro, il vérifie si il y a un filtre activé...

D'avance merci pour votre aide !

 

[Guest]

Re : Condition verification tri avant execution macro

Bonjour,

If ActiveSheet.FilterMode then ActiveSheet.ShowAllData

A+

 

[Beber75]

Re : Condition verification tri avant execution macro

Ca marche super!

Merci beaucoup !