Bonjour,
Je reviens vers vous car j'ai un souci lors de la réinitialisation des filtres (pour remettre à zéro).
Que ce soit avec le script de @job75 ou celui que j'avais avant, ça fonctionne une ou deux fois et plus rien, il refuse de remettre à zéro.
Une idée ?
Sur le fichier d'exemple que j'avais donné dans mes 2 posts précédents il y a peu de données et aucun souci, mais dans mon fichier original qui comporte de nombreuses lignes ça pose problème.
B1 étant ma cellule où sont récupérées et affichées les critères de contre-indications saisies par l'utilisateur.
Voici les 2 solutions tentées :
Si ça peut aider, voici le sujet précédent pour comprendre le rendu final souhaité et le fichier d'exemple.
Sujet précédent : VBA Excel : Filtres au-delà de 2 critères, quelle(s) solution(s) svp ?
Merci encore.
Bonne soirée.
Je reviens vers vous car j'ai un souci lors de la réinitialisation des filtres (pour remettre à zéro).
Que ce soit avec le script de @job75 ou celui que j'avais avant, ça fonctionne une ou deux fois et plus rien, il refuse de remettre à zéro.
Une idée ?
Sur le fichier d'exemple que j'avais donné dans mes 2 posts précédents il y a peu de données et aucun souci, mais dans mon fichier original qui comporte de nombreuses lignes ça pose problème.
B1 étant ma cellule où sont récupérées et affichées les critères de contre-indications saisies par l'utilisateur.
Voici les 2 solutions tentées :
VB:
Sub RAZ()
'Dans la feuille Feuil1, on remet les filtres à zéro
With Sheets("Feuil1")
If .AutoFilterMode And .FilterMode Then .ShowAllData
'on vide la cellule B3 où sont affichés les filtres appliqués
[B1] = "Contre-indications : "
End With
End Sub
VB:
Sub RAZ()
Rows.Hidden = False
[B1] = "Contre-Indications : "
End SubSi ça peut aider, voici le sujet précédent pour comprendre le rendu final souhaité et le fichier d'exemple.
Sujet précédent : VBA Excel : Filtres au-delà de 2 critères, quelle(s) solution(s) svp ?
Merci encore.
Bonne soirée.