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

Résolu/Fermé

rayray - Modifié par rayray le 19/02/2014 à 10:08
rayray - 19 févr. 2014 à 10:45

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:

Afficher message d'erreur si tableau déjà "défiltré"
Tableau croisé dynamique - Guide
Erreur 0x80070643 - Guide
Recuperer message whatsapp - Guide
Tableau ascii - Guide
Message d'absence thunderbird - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 févr. 2014 à 10:18

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

rayray
19 févr. 2014 à 10:25

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 févr. 2014 à 10:37

Re,

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

https://www.cjoint.com/?DBtkvzeKupc

rayray
19 févr. 2014 à 10:45

Autant pour moi, je n'avais pas lié mon bouton -_-".

Merci beaucoup et bonne journée

Discussions similaires

qu'est-ce que diff message ?

Instagram "Désolé, une erreur s'est produite"

Comment reconnaitre si un SMS m'indiquant un message vocal est une arnaque ?

Erreur vidéo inconnue sur le Freebox Player

Discussions similaires

Newsletters