Afficher message d'erreur si tableau déjà "défiltré" Résolu/Fermé

Question

Bonjour, 

Je me tourne vers vous concernant une "mini" macro qui est liée à un bouton. En fait quand on appuie le filtre est effacé, cependant si le filtre est déjà effacé, ma macro me met une erreur et me renvoie vers VBA, ce que je ne souhaite pas vu que d'autres personnes vont utiliser le fichier.

En fait j'aimerais que si le filtre est déjà effacé on m'affiche une fenêtre me disant que c'est fait ou même que la commande ne soit pas prise en compte.

Une idée ?

Merci bien,


Sub show_all()'Range("A2").Select    ActiveSheet.ShowAllDataMsgBox " Le tableau n'est plus filtré "End Sub

Configuration: Windows 7 / Internet Explorer 8.0

f894009 · Answer

Bonjour,

Sub show_all()'    With Worksheets("Feuil1")        If .AutoFilterMode = True Then            ActiveSheet.ShowAllData            .AutoFilterMode = False        End If    End With    MsgBox " Le tableau n'est plus filtré "End Sub

Afficher message d'erreur si tableau déjà "défiltré"

1 réponse

Discussions similaires