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

Résolu
rayray -  
 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

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
rayray
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

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

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

Merci beaucoup et bonne journée
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
SMS message vocal arnaque ?
kikidefer -
brucine -

9 réponses