Discussion :

[lumpys]

Bonjour,

J'ai un graphique dont les données s'affichent suite à une sélection dans une zone de liste modifiable (la sélection ne peut être que simple). Pour afficher l'ensemble des graphiques, il faut sélectionner 1 à un les données de la zone de liste modifiable. Je souhaiterai pouvoir réaliser une sélection multique et que l'ensemble des graphiques puisse s'imprimer dans un même document en PDF (j'utilise PDF Creator). J'ai pensé à créer une zone de liste (à sélection multiple) dans un userform, mais je ne sais pas très bien ensuite comment faire pour qu'il concatène l'ensemble des graphiques dans un même document PDF. J'espère que je suis clair un minimum. Merci d'avance pour les réponses que vous pourrez m'apporter.

[Godzestla]

Bonjour,

Dans la mesure ou tes graphiques sont chacun sur une feuille et que chaque feuille avec graphique ne contient rien d'autre, il est très facile de sélectionner les feuilles et puis d'imprimer uniquement les feuilles sélectionnées, vers ton imprimante PDf Creator. Tu auras ainsi sans difficulté un seul PDf avec tes graphiques.

[lumpys]

Les graphiques ne sont pas sur des feuilles différentes. Un graphique est sur une feuille. En sélectionnant une donnée dans une zone de liste déroulante, on modifie l'affichage du graphique. Cf. ci-joint un exemple du fichier que j'utilise.

[Godzestla]

Une solution possible est alors de générer autant de feuilles temporaires que tu as d'options dans ta liste déroulante (ici 4), avec pour chacune une valeur de cette liste déroulante.
Tu nommes ces feuilles par exemple du nom de la sélection. Puis tu les sélectionnes toutes, tu imprime la sélection, puis tu les effaces.

Avant la génération suivante pour impression, il est prudent de vérifier l'existence des feuilles temporaires et de les supprimer.

[lumpys]

Je ne suis pas sûr que cette façon de fonctionner soit géniale pour la mémoire. Ma sélection peut être importante, ce qui génèrerai un nombre important de feuilles. Merci quand même pour l'idée.

Si quelqu'un à une autre idée, n'hésitez pas ...

[Daniel.C]

Bonjour,

Le principe est d'empiler les graphiques les uns sous les autres sur la feuille nommée Imp à l'aide d'une Listbox à sélection multiple et d'un bouton de commande. J'ai supprimé la combobox d'origine. Tu dois modifier les dimensions des graphiques. L'indice de chaque valeur sélectionnée est mise en A1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
    For Each sh In Sheets("Imp").Shapes
        sh.Delete
    Next
    With ActiveSheet.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
               [A1] = i + 1
                Charts.Add
                Set v = ActiveChart
                ActiveChart.ChartType = xlLine
                ActiveChart.SetSourceData Source:=Sheets("Feuil1 (2)").Range("B4:D6"), _
                    PlotBy:=xlColumns
                ActiveChart.Location Where:=xlLocationAsObject, Name:="Imp"
                With ActiveChart
                    .ChartType = xlLine
                    .SetSourceData Source:=Sheets("Feuil1 (2)").Range("B3:D6"), _
                        PlotBy:=xlColumns
                    .Location Where:=xlLocationAsObject, Name:="Imp"
                    .HasTitle = True
                    .ChartTitle.Text = ['feuil1 (2)'!A4].Value
                End With
                ctr = ctr + 1
                Set sh = Sheets("Imp").Shapes(Sheets("Imp").Shapes.Count)
                sh.Height = 330
                sh.Width = 600
                sh.Left = 1
                sh.Top = 330 * (ctr - 1)
               .Selected(i) = False
            End If
        Next i
    End With
End Sub