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

Signaler
-
 rayray -
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.ShowAllData

MsgBox " Le tableau n'est plus filtré "


End Sub

1 réponse

Messages postés
15342
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2020
1 355
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
Bonjour,

j'ai modifié le nom de la feuille avec le nom que j'ai dans mon classeur mais plus rien ne se passe. Ca ne défiltre plus
Messages postés
15342
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 septembre 2020
1 355
Re,

fichier test, feuil1 (2) et macro en module 2

https://www.cjoint.com/?DBtkvzeKupc
Autant pour moi, je n'avais pas lié mon bouton -_-".

Merci beaucoup et bonne journée