MAJ TCD selon une sélection de cellule ( boucle while) en VBA

Bonjour à tous,

Malgré les vacances de la plupart je sollicite votre aide pour un projet sur lequel je travaille actuellement.

J'aimerai mettre à jour un TCD selon une suite de valeur disposées dans une feuille, pour qu'à chacune des valeur j'imprime en PDF une version du TCD.
J'ai trouvé le code nécessaire pour l'impression en PDF, mais je n'arrive pas à trouver celui pour MAJ le TCD.
Voilà ce que j'ai commencé à rédiger, même si je ne suis pas sûr de son orthodoxie (par contre ce dont je suis sûr c'est que ce n'a marche pas ! :) )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub boucle_do_while()   Dim numero As Integer Dim i As Integer Dim Nb_Orders As Double   With Sheets("Others") 'Others est la feuille sur laquelle se trouve les données par lesquelles je voudrais filtrer mon TCD Nb_Orders = Application.WorksheetFunction.CountA(.Range("$B:$B")) - 1 ' Me permet de savoir combien de valeur existe sur cette feuille (et donc combien de valeurs sont à filtrer) i = 4 Do While i <= Nb_Orders ActiveSheet.PivotTables("TCD_1").PivotFields("order-no").ClearAllFilters ActiveSheet.PivotTables("TCD_1").PivotFields("Order Number").CurrentPage = _ "Cell(2,i)" i = i + 1 Loop   End With   End Sub

---

Merci pour votre aide et vos conseils !

Bonjour

Met ton code entre balises de code (bouton #)

"Cell(2,i)" ne peut pas marcher

Je suppose que ton premier N° erst en ligne 4 colonne 2 de la feuille Others

Code:

---

.cells(i,2).value

---

devrait correspondre

CurrentPage ne s'applique qu'aux champs de page en mono sélection : est-ce le cas ?

Néanmoins il faut vérifier que les valeurs de la feuille Others existent bien dans le TCD

Une autre solution est de dérouler tous les cas du TCD si l'ensemble est sensé figurer dans Others...

Hello Chris,

Merci pour ta réponse.
J'ai modifié la dénomination de la cellule par ta proposition.
Par contre, je t'avoue ne pas avoir compris ta question par rapport au "champs de page en mono sélection".

Pour que les choses soient plus simple, je te joins mon ébauche de fichier.

Merci pour ton aide!

Citation:

---

Envoyé par 78chris

Bonjour

Met ton code entre balises de code (bouton #)

"Cell(2,i)" ne peut pas marcher

Je suppose que ton premier N° erst en ligne 4 colonne 2 de la feuille Others

Code:

---

.cells(i,2).value

---

devrait correspondre

CurrentPage ne s'applique qu'aux champs de page en mono sélection : est-ce le cas ?

Néanmoins il faut vérifier que les valeurs de la feuille Others existent bien dans le TCD

Une autre solution est de dérouler tous les cas du TCD si l'ensemble est sensé figurer dans Others...

---

Bonjour

Tu n'es pas très attentif :

• j'ai écrit .Cells(i, 2).Value pas "Cells(i, 2).Value"
• j'ai indiqué "Je suppose que ton premier N° est en ligne 4 colonne 2 de la feuille Others" : comme elle est sur la ligne 5 tu aurait du rectifier...

En colonne B tu as une valeur + 1 titre : il faut donc soustraire 2 lignes et non 1 pour avoir le nombre de N° et si tu utilises i pour lire la colonne B il faut ajouter 4 au nombre de N° puisqu'on parcours à partir de 5

Plutôt qu'un boucle While + un compteur pour i j'ai mis un For i.

Reste à appeler ton code d'impression dans la boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub boucle_do_while()   Dim numero As Integer Dim i As Integer Dim Nb_Orders As Double   With Sheets("Others") ' Others est la feuille sur laquelle se trouve les données par lesquelles je voudrais filtrer mon TCD Nb_Orders = Application.WorksheetFunction.CountA(.Range("$B:$B")) - 2 ' Me permet de savoir combien de valeur existe sur cette feuille (et donc combien de valeurs sont à filtrer) For i = 5 To Nb_Orders + 4 ActiveSheet.PivotTables("TCD_1").PivotFields("order Number").ClearAllFilters ActiveSheet.PivotTables("TCD_1").PivotFields("Order Number").CurrentPage = _ .Cells(i, 2).Value Next End With   End Sub

---

Hello Chris,

Merci pour ton retour, en effet je n'ai pas été très attentif.

J'ai essayé ton code mais j'ai une erreur quand je lis le code: "Erreur d'execution 1004: Impossible de lire la propriété PivotTables de la classe Worksheet"et la ligne 13 est surlignée.

Le TCD étant sur la feuille "Preview_Print", j'ai cru qu'en la re-sélectionnant ça allait solutionner la chose mais ce n'est pas le cas... :(
As-tu une idée de ce qui peut bloquer ?

Et merci encore pour ton aide.

Bonjour

De façon générale il est plus fiable de nommer la feuille que d'utiliser activesheet.

Le code testé sur ton exemple fonctionne sans erreur... en partant de la feuille contenant le TCD...

Es-tu sûr de ne pas avoir oublié le .

Oui en effet, j'ai spécifié la feuille et ça roule.

Parfait, merci pour ton aide Chris!

Bonne soirée !:P:lol: