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.
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.