aide pour macro VBA

[meldja]

Bonjour,
J'ai voulu insérer un bouton (commadbutton) pour afficher toutes les enregistrements lorsqu'un filtre est appliqué.
Je l'ai associé à :
ActiveSheet.ShowAllData
(que j'ai pompé avec l'enregistreur de macro).
Tout va bien sauf lorsqu'il n'y a pas de champ filtré, j'ai un message d'erreur.
J'ai donc voulu modifier le code pour ne plus avoir de message d'erreur comme suit :

Private Sub CommandButton1_Click()

If Selection.AutoFilter = False Then
ActiveSheet.ShowAllData
Else
Exit Sub
End If

End Sub

Ca ne me met plus de message d'erreur, mais ça m'enlève carrément les filtres ou ça les remet.
Quelqu'un aurait une idée du code qu'il faudrait utiliser pour afficher tous les enregistrements et que ça ne mette pas de msg d'erreur lorsqu'aucun champ n'est filtré.
Merci d'avance.

 

[skoobi]

Re : aide pour macro VBA

Bonjour,

If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData

 

[meldja]

Re : aide pour macro VBA

Merci skooby
Désolé de la lenteur de la réponse mais je taf en même temps.

Juste une question ; y a-t-il un moyen autre que le Net pour connaitre les propriété et les méthodes qui s'appliquent aux filtres.
Pour résumer, comment aurais-je pu trouver FilterMode ? Y a-t-il un module d'aide où je peux trouver tout ce qui concerne les filtres ? Ou suis-je condamné à chercher sur le Net à chaque fois.

En tout cas merci pour la ième solution que tu m'apportes.
Bonne journée

 

[skoobi]

Re : aide pour macro VBA

Re,

une astuce pour trouver des propriétés, méthodes, etc... similaires à celui que l'on utilise, pour ton cas "ShowAllData":
tu places le curseur dessus puis tu appuie sur la touche F1.
Dans la fenêtre de l'aide, en haut à gauche clic sur "voir aussi". 😉

 

[meldja]

Re : aide pour macro VBA

Avec énormément de retard,
Merci skoobi... J'espère que tu verras mon remerciement à retardement.
Bonne soirée