Microsoft 365 Macro pour filtrer un tableau

Bucheronz · 4 Février 2021

Bonjour,

Je cherche depuis hier sans comprendre d'où vient mon erreur, je fais donc appel aux gens qui maîtrisent mieux que moi !
Voilà, je suis en train de créer un menu pour planifier ma semaine qui me génère ma liste de courses automatiquement.
Une fois mon planning rempli avec mes menus, je veux cliquer sur un bouton qui me bascule directement sur ma liste de courses dans laquelle toutes les quantités = 0 sont filtrées.

J'arrive à basculer et actualiser mon tableau croisé dynamique mais il ne se filtre pas tout seul et me donne une erreur que je ne comprends pas.
Certainement très simple à résoudre mais je n'ai aucune compétence en VBA

Je vous joins le fichier.

Merci d'avance !

sylvanu · 4 Février 2021

Bonjour Bucheronz,
Je n'ai pas eu d'erreur avec votre macro, mais une liste vide puisque le filtre demandé ne correspond à aucune ligne . ( Criteria1:=Array("0,3" , "1", "100", "2",... )
Par contre avec ce filtre on a bien la liste des ingrédients à la quantité non nulle :

VB:

ActiveSheet.Range("$A$3:$B$24").AutoFilter Field:=2, Criteria1:="<>0", Operator:=xlFilterValues

Bucheronz · 4 Février 2021

sylvanu à dit:
Bonjour Bucheronz,
Je n'ai pas eu d'erreur avec votre macro, mais une liste vide puisque le filtre demandé ne correspond à aucune ligne . ( Criteria1:=Array("0,3" , "1", "100", "2",... )
Par contre avec ce filtre on a bien la liste des ingrédients à la quantité non nulle :

VB:

ActiveSheet.Range("$A$3:$B$24").AutoFilter Field:=2, Criteria1:="<>0", Operator:=xlFilterValues

Bonjour merci pour la réponse,

J'ai réessayé et j'ai cette erreur quand je clique sur le bouton :

Je ne comprends pas

sylvanu · 4 Février 2021

Moi, je cliquais sur le bouton Générer la liste de courses de la feuille Planning qui construit la liste sans vide.
Quand je clique comme vous alors il me créé un feuille avec :

Je n'en vois pas l'intérêt mais il ne plante pas.

Bucheronz · 4 Février 2021

Le résultat que j'ai envoyé en photo arrive quand je clique sur le bouton générer la liste de courses.
J'ai essayé sur 2 pc différents et j'ai la même erreur à chaque fois.

Je ne comprends pas pourquoi ça marche chez vous

sylvanu · 4 Février 2021

Pour être bien sur de la manip à faire, j'ai fait ça :

Avec la ligne de filtre modifiée comme indiquée au post #2.
Mais sans modif ça donne une liste vide mais ne plante pas.
Je suis sous Win10 XL2007.

Bucheronz · 4 Février 2021

Bon et bien je ne comprends pas vraiment d'où vient mon problème...

Voici les lignes de code de ma macro.

Sub Macro3()
'
' Macro3 Macro
'

'
Worksheets("Liste de courses").Activate
Range("B4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.Range("$A$3:$B$24").AutoFilter Field:=2, Criteria1:="<>0", Operator:=xlFilterValues

End Sub

Et à chaque fois que je clique sur le bouton générer la liste de courses je reviens avec l'erreur du post #3

sylvanu · 4 Février 2021

Peut être que 2007 est plus "permissif" que 365.
La syntaxe de votre macro est issue de l'enregistreur de macros ?

Bucheronz · 4 Février 2021

sylvanu à dit:
Peut être que 2007 est plus "permissif" que 365.
La syntaxe de votre macro est issue de l'enregistreur de macros ?

Oui elle est issue de l'enregistreur.

Plus exactement je l'ai enregistré à nouveau et il s'agit de ce code :

Sub Macro2()
'
' Macro2 Macro
'

'
Sheets("Liste de courses").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.Range("$A$4:$B$23").AutoFilter Field:=2, Criteria1:="<>0", _
Operator:=xlAnd
End Sub

sylvanu · 4 Février 2021

Et si vous faites "bêtement" un run de cette macro, elle plante ?

Bucheronz · 4 Février 2021

Et oui elle plante

Microsoft 365 Macro pour filtrer un tableau

Bucheronz

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Bucheronz

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Bucheronz

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Bucheronz

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Bucheronz

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Bucheronz

XLDnaute Nouveau

Discussions similaires