Je souhaiterai faire un filtre sur mon tableau dynamique appeler : Clients,
sur le champs : Echeance
Je pense que c'est possible mais je ne vois pas comment.
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
michdenis
Bonjour TALL Yaya,
Voici un message paru sous la plume de AV sur un sujet similaire :
'========================= 'Adapter le nom du TCD et celui du champ :
Sub zz_TCD() laVar = InputBox("", "") Application.ScreenUpdating = False With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next On Error Resume Next For Each monPivIt In .PivotItems If monPivIt.Name <> laVar Then monPivIt.Visible = False Next End With End Sub '=========================
Salutations!
"TALL Yaya" a écrit dans le message de news: Bonjour,
Je souhaiterai faire un filtre sur mon tableau dynamique appeler : Clients, sur le champs : Echeance Je pense que c'est possible mais je ne vois pas comment.
Merci de votre aide.
Bonjour TALL Yaya,
Voici un message paru sous la plume de AV sur un sujet similaire :
'========================= 'Adapter le nom du TCD et celui du champ :
Sub zz_TCD()
laVar = InputBox("", "")
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates")
Dim monPivIt As Object
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
On Error Resume Next
For Each monPivIt In .PivotItems
If monPivIt.Name <> laVar Then monPivIt.Visible = False
Next
End With
End Sub
'=========================
Salutations!
"TALL Yaya" <tall.yaya@wanadoo.fr> a écrit dans le message de news:uxUtCs7QDHA.304@tk2msftngp13.phx.gbl...
Bonjour,
Je souhaiterai faire un filtre sur mon tableau dynamique appeler : Clients,
sur le champs : Echeance
Je pense que c'est possible mais je ne vois pas comment.
Voici un message paru sous la plume de AV sur un sujet similaire :
'========================= 'Adapter le nom du TCD et celui du champ :
Sub zz_TCD() laVar = InputBox("", "") Application.ScreenUpdating = False With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next On Error Resume Next For Each monPivIt In .PivotItems If monPivIt.Name <> laVar Then monPivIt.Visible = False Next End With End Sub '=========================
Salutations!
"TALL Yaya" a écrit dans le message de news: Bonjour,
Je souhaiterai faire un filtre sur mon tableau dynamique appeler : Clients, sur le champs : Echeance Je pense que c'est possible mais je ne vois pas comment.
Merci de votre aide.
TALL Yaya
Bonjour, Comme tu peux le constate sur le message ci dessous c'etait deja moi qui avais posser la question a AV.
Mais le probleme c'est que lorsque je saisie une date j'ai un message d'erreurs..:
"Erreur d'execution '1004'".
Puis lorsque je clique sur debogage il me retourne sur VB sur la phrase : "monPivIt.Visible = True" en jaune... je ne sais pas ce que je dois faire ... De plus quand je saisie une date, je ne sais pas l'action qu'il va effectuer ...
Merci de votre aide. TALL Yaya
"michdenis" a écrit dans le message de news: #
Bonjour TALL Yaya,
Voici un message paru sous la plume de AV sur un sujet similaire :
'========================= > 'Adapter le nom du TCD et celui du champ :
Sub zz_TCD() laVar = InputBox("", "") Application.ScreenUpdating = False With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next On Error Resume Next For Each monPivIt In .PivotItems If monPivIt.Name <> laVar Then monPivIt.Visible = False Next End With End Sub '========================= >
Salutations!
"TALL Yaya" a écrit dans le message de news:
Bonjour,
Je souhaiterai faire un filtre sur mon tableau dynamique appeler : Clients,
sur le champs : Echeance Je pense que c'est possible mais je ne vois pas comment.
Merci de votre aide.
Bonjour,
Comme tu peux le constate sur le message ci dessous c'etait deja moi qui
avais posser la question a AV.
Mais le probleme c'est que lorsque je saisie une date j'ai un message
d'erreurs..:
"Erreur d'execution '1004'".
Puis lorsque je clique sur debogage il me retourne sur VB sur la phrase :
"monPivIt.Visible = True" en jaune...
je ne sais pas ce que je dois faire ...
De plus quand je saisie une date,
je ne sais pas l'action qu'il va effectuer ...
Merci de votre aide.
TALL Yaya
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#J2GEb9QDHA.2148@TK2MSFTNGP10.phx.gbl...
Bonjour TALL Yaya,
Voici un message paru sous la plume de AV sur un sujet similaire :
'========================= > 'Adapter le nom du TCD et celui du champ :
Sub zz_TCD()
laVar = InputBox("", "")
Application.ScreenUpdating = False
With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates")
Dim monPivIt As Object
For Each monPivIt In .PivotItems
monPivIt.Visible = True
Next
On Error Resume Next
For Each monPivIt In .PivotItems
If monPivIt.Name <> laVar Then monPivIt.Visible = False
Next
End With
End Sub
'========================= >
Salutations!
"TALL Yaya" <tall.yaya@wanadoo.fr> a écrit dans le message de
news:uxUtCs7QDHA.304@tk2msftngp13.phx.gbl...
Bonjour,
Je souhaiterai faire un filtre sur mon tableau dynamique appeler :
Clients,
sur le champs : Echeance
Je pense que c'est possible mais je ne vois pas comment.
Bonjour, Comme tu peux le constate sur le message ci dessous c'etait deja moi qui avais posser la question a AV.
Mais le probleme c'est que lorsque je saisie une date j'ai un message d'erreurs..:
"Erreur d'execution '1004'".
Puis lorsque je clique sur debogage il me retourne sur VB sur la phrase : "monPivIt.Visible = True" en jaune... je ne sais pas ce que je dois faire ... De plus quand je saisie une date, je ne sais pas l'action qu'il va effectuer ...
Merci de votre aide. TALL Yaya
"michdenis" a écrit dans le message de news: #
Bonjour TALL Yaya,
Voici un message paru sous la plume de AV sur un sujet similaire :
'========================= > 'Adapter le nom du TCD et celui du champ :
Sub zz_TCD() laVar = InputBox("", "") Application.ScreenUpdating = False With ActiveSheet.PivotTables("MonTableau").PivotFields("Dates") Dim monPivIt As Object For Each monPivIt In .PivotItems monPivIt.Visible = True Next On Error Resume Next For Each monPivIt In .PivotItems If monPivIt.Name <> laVar Then monPivIt.Visible = False Next End With End Sub '========================= >
Salutations!
"TALL Yaya" a écrit dans le message de news:
Bonjour,
Je souhaiterai faire un filtre sur mon tableau dynamique appeler : Clients,
sur le champs : Echeance Je pense que c'est possible mais je ne vois pas comment.
Merci de votre aide.
AV
Comme proposé précédemment, je peux te transmettre un exemple !
AV
Comme proposé précédemment, je peux te transmettre un exemple !
