J'ai découvert les filtres élaborés depuis peu ...
Je voudrais supprimer mon filtre élaboré en VB. J'ai trouver la commande :
ActiveSheet.ShowAllData
qui fonctionne si un filtre élaboré existe sur la feuille.
Comment faire pour tester l'existence justement de ce filtre ?
Si aucun filtre n'existe et que le système passe sur cette commande j'ai un
message d'erreur.
Je voudrais donc rajouter un truc du style :
si 'il existe un filtre élaboré' alors
ActiveSheet.ShowAllData
fin si
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour,
Je ne crois pas qu'il soit possible de tester l'utilisation des filtres élaborés. Par contre, tu peux éviter un message d'erreur après ActiveSheet.ShowAllData avec une gestion d'erreur :
On Error Resume Next ActiveSheet.ShowAllData
Camille
"Laurence" wrote:
Bonjour
J'ai découvert les filtres élaborés depuis peu ... Je voudrais supprimer mon filtre élaboré en VB. J'ai trouver la commande : ActiveSheet.ShowAllData qui fonctionne si un filtre élaboré existe sur la feuille. Comment faire pour tester l'existence justement de ce filtre ? Si aucun filtre n'existe et que le système passe sur cette commande j'ai un message d'erreur. Je voudrais donc rajouter un truc du style : si 'il existe un filtre élaboré' alors ActiveSheet.ShowAllData fin si
Merci de votre aide
Bonjour,
Je ne crois pas qu'il soit possible de tester l'utilisation des filtres
élaborés. Par contre, tu peux éviter un message d'erreur après
ActiveSheet.ShowAllData avec une gestion d'erreur :
On Error Resume Next
ActiveSheet.ShowAllData
Camille
"Laurence" wrote:
Bonjour
J'ai découvert les filtres élaborés depuis peu ...
Je voudrais supprimer mon filtre élaboré en VB. J'ai trouver la commande :
ActiveSheet.ShowAllData
qui fonctionne si un filtre élaboré existe sur la feuille.
Comment faire pour tester l'existence justement de ce filtre ?
Si aucun filtre n'existe et que le système passe sur cette commande j'ai un
message d'erreur.
Je voudrais donc rajouter un truc du style :
si 'il existe un filtre élaboré' alors
ActiveSheet.ShowAllData
fin si
Je ne crois pas qu'il soit possible de tester l'utilisation des filtres élaborés. Par contre, tu peux éviter un message d'erreur après ActiveSheet.ShowAllData avec une gestion d'erreur :
On Error Resume Next ActiveSheet.ShowAllData
Camille
"Laurence" wrote:
Bonjour
J'ai découvert les filtres élaborés depuis peu ... Je voudrais supprimer mon filtre élaboré en VB. J'ai trouver la commande : ActiveSheet.ShowAllData qui fonctionne si un filtre élaboré existe sur la feuille. Comment faire pour tester l'existence justement de ce filtre ? Si aucun filtre n'existe et que le système passe sur cette commande j'ai un message d'erreur. Je voudrais donc rajouter un truc du style : si 'il existe un filtre élaboré' alors ActiveSheet.ShowAllData fin si
Merci de votre aide
Poulpor
Bonjour,
On peut tester le mode filtre de cette manière :
MsgBox activesheet.FilterMode
Si le filtre est actif => vrai sinon, faux
poulpor
Bonjour,
Je ne crois pas qu'il soit possible de tester l'utilisation des filtres élaborés. Par contre, tu peux éviter un message d'erreur après ActiveSheet.ShowAllData avec une gestion d'erreur :
On Error Resume Next ActiveSheet.ShowAllData
Camille
"Laurence" wrote:
Bonjour
J'ai découvert les filtres élaborés depuis peu ... Je voudrais supprimer mon filtre élaboré en VB. J'ai trouver la commande : ActiveSheet.ShowAllData qui fonctionne si un filtre élaboré existe sur la feuille. Comment faire pour tester l'existence justement de ce filtre ? Si aucun filtre n'existe et que le système passe sur cette commande j'ai un message d'erreur. Je voudrais donc rajouter un truc du style : si 'il existe un filtre élaboré' alors ActiveSheet.ShowAllData fin si
Merci de votre aide
Bonjour,
On peut tester le mode filtre de cette manière :
MsgBox activesheet.FilterMode
Si le filtre est actif => vrai sinon, faux
poulpor
Bonjour,
Je ne crois pas qu'il soit possible de tester l'utilisation des filtres
élaborés. Par contre, tu peux éviter un message d'erreur après
ActiveSheet.ShowAllData avec une gestion d'erreur :
On Error Resume Next
ActiveSheet.ShowAllData
Camille
"Laurence" wrote:
Bonjour
J'ai découvert les filtres élaborés depuis peu ...
Je voudrais supprimer mon filtre élaboré en VB. J'ai trouver la commande :
ActiveSheet.ShowAllData
qui fonctionne si un filtre élaboré existe sur la feuille.
Comment faire pour tester l'existence justement de ce filtre ?
Si aucun filtre n'existe et que le système passe sur cette commande j'ai un
message d'erreur.
Je voudrais donc rajouter un truc du style :
si 'il existe un filtre élaboré' alors
ActiveSheet.ShowAllData
fin si
Je ne crois pas qu'il soit possible de tester l'utilisation des filtres élaborés. Par contre, tu peux éviter un message d'erreur après ActiveSheet.ShowAllData avec une gestion d'erreur :
On Error Resume Next ActiveSheet.ShowAllData
Camille
"Laurence" wrote:
Bonjour
J'ai découvert les filtres élaborés depuis peu ... Je voudrais supprimer mon filtre élaboré en VB. J'ai trouver la commande : ActiveSheet.ShowAllData qui fonctionne si un filtre élaboré existe sur la feuille. Comment faire pour tester l'existence justement de ce filtre ? Si aucun filtre n'existe et que le système passe sur cette commande j'ai un message d'erreur. Je voudrais donc rajouter un truc du style : si 'il existe un filtre élaboré' alors ActiveSheet.ShowAllData fin si