Selection dans une listbox et impression d'un TCD

bonjour à toutes et tous,


dans le cadre de mon travail, j'ai créé un fichier excel avec des TCD.

je souhaite, via un userform avec ListBox et Bouton, que l'utilisateur puisse sélectionner dans la listbox les items qui correspondent aux valeurs du champ de page de mon TCD et imprimer automatiquement chaque page de mon TCD correspondantes...

par exemple, j'ai une liste de 13 noms, qui permettent de filtrer mon tableau. Si l'utilisateur sélectionne les noms 1-5 et 8 et bien cela lance automatiquement l'impression des tcd correspondants...

j'ai réussi à faire les codes suivants, le premier fonctionne nickel, mais je ne sais imprimer qu'une feuille à la fois... et le second imprime 12 fois le même marché!

Je présume que je dois me baser sur le premier et créer une boucle, mais j'ai besoin de votre aide pour y parvenir!

Code:

---

1 2 3 4 5 6 7 8 9

If List_Selection.ListIndex = -1 Then Exit Sub   ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields(" "). _ CurrentPage = List_Selection.List(List_Selection.ListIndex) ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh   Me.Hide ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Me.Show

---

et le second code que j'ai fait, mais qui imprime 12 fois la même page!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub But_Imprimer_Click() Dim i As Integer Dim marche As String marche = List_Impression.Value ' <- c'est ici que je n'arrive pas à intégrer toutes les noms de mes marchés   For i = 0 To List_Impression.ListCount - 1   ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields(" "). _ CurrentPage = marche ' <- variable déclarée ci-dessus et qui fonctionne à condition que je clique sur une ligne de ma listbox et qui imprime 12 fois ce marché... alors que moi je souhaite imprimer une fois chaque marché présent dans la listbox! ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next   End Sub

---

Merci d'avance pour vos conseils!

Bonsoir.

Tu peux essayer de mettre la variable marche dans la boucle. Par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim i As Integer Dim marche As String   For i = 0 To List_Impression.ListCount - 1   marche = List_Impression(i).Value ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields(" "). _ CurrentPage = marche ' <- variable déclarée ci-dessus et qui fonctionne à condition que je clique sur une ligne de ma listbox et qui imprime 12 fois ce marché... alors que moi je souhaite imprimer une fois chaque marché présent dans la listbox! ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next   End Sub

---

C'est pour l'idée, je n'ai pas essayé !

Cordialement,

PGZ

Bonjour Pgz,


j'ai essayé avec ton code, mais il m'affiche une erreur d'execution '13' - incompatibilité de type sur la ligne :

Code:

---

marche = List_Selection(i).Value

---

merci en tout cas pour ton idée, je continue à chercher!

Bonjour fabian123,

Il n'est pas évidant de te proposer une solution sans ton fichier, mais voici ma suggestion :

- Vérifie que le paramètre "Multiselect" de List_Impression est à 1 ou 2;
- Puisque le paramètre "Value" est NULL dans le cas d'une multi-sélection, utilise le paramètre "List";
- Dans ta boucle, introdruis une condition pour contrôler que l'item en cours de List_impression a été selectionné.

Et comme je ne suis pas sûr d'être clair, voici le code :

Code:

---

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

Dim i As Integer Dim marche As String   '------------------------------------------------------ ' Choisit l'une ou l'autre ligne ou modifie le paramètre ' directement dans la fenêtre des propriété List_Impression.MultiSelect = fmMultiSelectExtended List_Impression.MultiSelect = fmMultiSelectMulti '------------------------------------------------------ For i = 0 To List_Impression.ListCount - 1 If List_Impression.Selected(i) = True Then 'Si le ième item est sélectionné... marche = List_Impression.List(i) 'alors on le récupère   With ActiveSheet.PivotTables("Tableau croisé dynamique3") .PivotFields(" ").CurrentPage = marche .PivotCache.Refresh End With   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next

---

Si çà marche, n'oublie pas de clore la conversation et n'hésite surtout pas à voter pour ma contribution:)

Bonjour Kassy!

Ca fonctionne nickel!


Un tout grand merci!


juste pour ma compréhension, dans la boucle que j'avais essayé, je n'avais pas mis de WITH, est-ce à cause de cela que je ne savais imprimer qu'une seule feuille et pas ma sélection?

En tout cas un tout grand merci!

Bonjour Fabian,

Non, j'ai utilisé le bloc "with" pour une meilleurs lecture (du moins pour moi).

Et pour comprendre où se trouvait les problèmes, le mieux est d'exécuter les différents code en mode pas-à-pas, observer ce qui se passe, de les décortiquer et d'utiliser l'aide microsoft.

Bonjour,

je n'aurais pas mieux conseillé : :plusser: !