Discussion :

[laurentdx59]

Bonjour à tous,

Je vous sollicite sur une petite problématique VBA:

J'ai créé une macro qui, via un bouton, défiltre tous les filtres de ma base de données. Le problème est que si on clique une deuxième fois dessus, cela envoi un message d'erreur (puisque, je pense, tous les filtres sont déjà retirés).

Comment puis-je faire pour que si on clique une deuxième fois dessus, alors j'ai juste un message qui indique que les filtres sont déjà retirés? Bien entendu, la macro doit refonctionner à partir du moment que de nouveaux filtres sont appliqués.

Pour l'instant ma macro est tout simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub suppr()
 
ActiveSheet.ShowAllData
 
 
End Sub

Merci d'avance,

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub suppr()
 
    With ActiveSheet
      If .FilterMode = True Then
         .ShowAllData
      Else
          MsgBox "Le tableau n'est pas filtré !", vbInformation, "Défiltrer le tableau"
      End If
 
    End With
 
End Sub

[laurentdx59]

Merci beaucoup !!! Cela fonctionne.