Bonjour le forum,
Après une petite recherche, je suis tombé sur ce post-ci:
https://www.excel-downloads.com/threads/resolu-vba-filtres.203730/
qui répond parfaitement à ma problématique, à savoir, remettre les filtres automatiques sur "Tous" (ShowAllData).
Parfait. Mais histoire d'aller plus loin, et parce que j'anticipe un peu les remarques de mes users, je me demandais s'il était possible de sauvegarder les filtres actifs AVANT de les enlever, pour pouvoir les remettre par la suite.
Je m'explique:
Pour se simplifier la vie, mes utilisateurs filtrent le tableau via les filtres automatiques pour que ce même tableau soit plus lisible parce que réduit, ce que je comprends tout à fait.
Lors d'un ajout fait à l'aide de mon userform, les filtres actifs me posent un problème, donc je dois les enlever.
(Merci Dranreb pour le code:
Une fois l'ajout terminé, je me dis que ça pourrait rendre service à mes utilisateurs si je pouvais, via VBA, remettre les filtres qu'ils avaient mis en place, et donc les sauvegarder au préalable.
Je joins un petit classeur d'exemple qui reprend les deux axes sous forme de boutons sur une feuille excel.
La feuille Data est le tableau à filtrer (planning)
La feuille Filtres contient les 3 entrées possibles sur lesquelles filtrer: Client, Série, et Engin.
Le bouton "- Filtres" enlève les filtres
Le bouton "+ Filtres" devrait les remettre, mais là, je coince.
Remarque: la feuille Filtres ne fait pas office de filtre en elle-même, elle sert juste à sauvegarder le critère de filtrage.
Merci d'avance à tout le monde,
Cordialement,
Orodreth
Après une petite recherche, je suis tombé sur ce post-ci:
https://www.excel-downloads.com/threads/resolu-vba-filtres.203730/
qui répond parfaitement à ma problématique, à savoir, remettre les filtres automatiques sur "Tous" (ShowAllData).
Parfait. Mais histoire d'aller plus loin, et parce que j'anticipe un peu les remarques de mes users, je me demandais s'il était possible de sauvegarder les filtres actifs AVANT de les enlever, pour pouvoir les remettre par la suite.
Je m'explique:
Pour se simplifier la vie, mes utilisateurs filtrent le tableau via les filtres automatiques pour que ce même tableau soit plus lisible parce que réduit, ce que je comprends tout à fait.
Lors d'un ajout fait à l'aide de mon userform, les filtres actifs me posent un problème, donc je dois les enlever.
(Merci Dranreb pour le code:
Code:
Dim F As Worksheet
For Each F In Worksheets
If F.FilterMode Then F.ShowAllData
Next F
Je joins un petit classeur d'exemple qui reprend les deux axes sous forme de boutons sur une feuille excel.
La feuille Data est le tableau à filtrer (planning)
La feuille Filtres contient les 3 entrées possibles sur lesquelles filtrer: Client, Série, et Engin.
Le bouton "- Filtres" enlève les filtres
Le bouton "+ Filtres" devrait les remettre, mais là, je coince.
Remarque: la feuille Filtres ne fait pas office de filtre en elle-même, elle sert juste à sauvegarder le critère de filtrage.
Merci d'avance à tout le monde,
Cordialement,
Orodreth
Pièces jointes
Dernière édition: