Bonjour à tous,
J'ai un casse tête (Pour le débutant que je suis)...et je viens voir des pros pour voir si déjà ce que j'envisage est possible....
J'ai crée un Userform avec un certains nombres de listes déroulantes à choix multiples ou non (voir fichier joint).
A partir des sélections faite sur ces listes, je voudrais savoir si c'est possible de modifier automatiquement les "Filtres du rapport" des TCD présent dans mon classeur.
J'ai cherché et j'avais bien trouvé par l'objet OWCpivottable, mais sa crée des TCD directement dans l'userform, alors que les miens sont déjà fait je voudrai juste leurs appliquer la même sélection.
Code que j'ai commencé à faire (soyez indulgent, je sais qu'il est truffé de faute
Private Sub CommandButton1_Click()
Dim Selection_Liste As Userform1
Dim Valeur1 As String, Dim Valeur2 As String, Dim Valeur3 As String, Dim Valeur4 As String, Dim Valeur5 As String
Valeur1 = UserForm1.TCD_1_ANNEE
Valeur2 =UserForm1.TCD_2_ANNEE
Valeur3 = UserForm1.TCD_1_PERIODE
Valeur4 =UserForm1.TCD_1_TRIMESTRE
Valeur5 = UserForm1.TCD_2_PERIODE
For Each Feuille In Sheets(Array("DI", "DI(2)", "DI"(3)))
Feuille.PivotTables(TCD_1).PivotFields("ANNEE").CurrentPage = Valeur1
Feuille.PivotTables(TCD_1).PivotFields("PERIODE").CurrentPage = Valeur3
Feuille.PivotTables(TCD_2).PivotFiels("ANNEE").CurrentPage = Valeur2
Feuille.PivotTables(TCD_2).PivotFiels("PERIODE").CurrentPage = Valeur5
Else
For Each Feuille In Sheets(Array("REBUT", "REBUT(2)", "REBUT"(3)))
Feuille.PivotTables(TCD_1).PivotFields("ANNEE").CurrentPage = Valeur1
Feuille.PivotTables(TCD_1).PivotFields("TRIMESTRE").CurrentPage = Valeur4
Feuille.PivotTables(TCD_2).PivotFiels("ANNEE").CurrentPage = Valeur2
Feuille.PivotTables(TCD_2).PivotFiels("PERIODE").CurrentPage = Valeur5
Next Feuille
End Sub
Le fichier Cijoint.fr - Service gratuit de dépôt de fichiers montre ce que je cherche à faire..
Merci de votre aide !!!
J'ai un casse tête (Pour le débutant que je suis)...et je viens voir des pros pour voir si déjà ce que j'envisage est possible....
J'ai crée un Userform avec un certains nombres de listes déroulantes à choix multiples ou non (voir fichier joint).
A partir des sélections faite sur ces listes, je voudrais savoir si c'est possible de modifier automatiquement les "Filtres du rapport" des TCD présent dans mon classeur.
J'ai cherché et j'avais bien trouvé par l'objet OWCpivottable, mais sa crée des TCD directement dans l'userform, alors que les miens sont déjà fait je voudrai juste leurs appliquer la même sélection.
Code que j'ai commencé à faire (soyez indulgent, je sais qu'il est truffé de faute
Private Sub CommandButton1_Click()
Dim Selection_Liste As Userform1
Dim Valeur1 As String, Dim Valeur2 As String, Dim Valeur3 As String, Dim Valeur4 As String, Dim Valeur5 As String
Valeur1 = UserForm1.TCD_1_ANNEE
Valeur2 =UserForm1.TCD_2_ANNEE
Valeur3 = UserForm1.TCD_1_PERIODE
Valeur4 =UserForm1.TCD_1_TRIMESTRE
Valeur5 = UserForm1.TCD_2_PERIODE
For Each Feuille In Sheets(Array("DI", "DI(2)", "DI"(3)))
Feuille.PivotTables(TCD_1).PivotFields("ANNEE").CurrentPage = Valeur1
Feuille.PivotTables(TCD_1).PivotFields("PERIODE").CurrentPage = Valeur3
Feuille.PivotTables(TCD_2).PivotFiels("ANNEE").CurrentPage = Valeur2
Feuille.PivotTables(TCD_2).PivotFiels("PERIODE").CurrentPage = Valeur5
Else
For Each Feuille In Sheets(Array("REBUT", "REBUT(2)", "REBUT"(3)))
Feuille.PivotTables(TCD_1).PivotFields("ANNEE").CurrentPage = Valeur1
Feuille.PivotTables(TCD_1).PivotFields("TRIMESTRE").CurrentPage = Valeur4
Feuille.PivotTables(TCD_2).PivotFiels("ANNEE").CurrentPage = Valeur2
Feuille.PivotTables(TCD_2).PivotFiels("PERIODE").CurrentPage = Valeur5
Next Feuille
End Sub
Le fichier Cijoint.fr - Service gratuit de dépôt de fichiers montre ce que je cherche à faire..
Merci de votre aide !!!