Affichage graphique dans UserForm

Version imprimable

25/08/2008, 21h11
ananar

Affichage graphique dans UserForm

Bonsoir à toutes et à tous,

J'ai un fichier,BCR_Stats, qui contient 2 feuilles (Données + Graphiques).
A partir de la feuille Graphiques je veux afficher les graphiques de la feuille Données.

Je me suis inspiré d'un fichier posté sur le forum, mais j'ai une erreur de compilation.

En PJ, vous trouverez mon fichier.

D'avance merci pour les réponses qui me parviendront.

Bien cordialement.
25/08/2008, 21h24
JackOuYA

bonsoir,...

et c'est quoi le message d'erreur , sur qu'elle ligne de code ?

Bonsoir JackOuYA,

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
23
24
25
26
Option Explicit
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
    Dim i As Byte
 
    'Boucle sur les graphiques incorporés
    For i = 1 To Données.ChartObjects.Count
        ComboBox1.AddItem Données.ChartObjects(i).Chart.Name
    Next i
 
    Feuil2.Shapes("Image 1").CopyPicture xlScreen, xlPicture
    Set Image1.Picture = PastePicture(xlPicture)
End Sub
 
 
 
Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex <> -1 Then
        Données.ChartObjects(ComboBox1.ListIndex + 1).CopyPicture xlScreen, xlPicture
        Set Image1.Picture = PastePicture(xlPicture)
    End If
End Sub

En PJ, shoot écran du message d'erreur.

25/08/2008, 21h42
JackOuYA

re, tu as vu ma nouvelle signature ;)

c'est quoi : Données ?
25/08/2008, 21h50
ananar

"Données" c'est le nom de la feuille ou figure mes graphiques.

C'est cette feuille que je souhaite appeler à l'aide d'un UserForm qui se trouve sur la feuille Graphiques.

Ok, j'ai vu ta signature:oops:
25/08/2008, 21h53
JackOuYA
feuille excel. .? le nom dans l'onglet ?

si oui essai de remplacer Données par :
Code:

1 2 ThisWorkbook.sheets("Données").....

Bonsoir

1.
Le nom de la feuille est incorrect.
Remplaces "Données" par Feuil1.

2.
"Image 1" semble ne pas exister dans Feuil2.
Donc, supprime cette partie:

Code:

1
2
    Feuil2.Shapes("Image 1").CopyPicture xlScreen, xlPicture
    Set Image1.Picture = PastePicture(xlPicture)

Ce qui donne le code suivant à placer dans le classeur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub UserForm_Initialize()
    Dim i As Byte
 
    'Boucle sur les graphiques incorporés
    For i = 1 To Feuil1.ChartObjects.Count
        ComboBox1.AddItem Feuil1.ChartObjects(i).Chart.Name
    Next i
 
End Sub
 
 
Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex <> -1 Then
        Feuil1.ChartObjects(ComboBox1.ListIndex + 1).CopyPicture xlScreen, xlPicture
        Set Image1.Picture = PastePicture(xlPicture)
    End If
End Sub

bonne soirée
michel

26/08/2008, 17h47
ananar

Bonjour SilkyRoad,

Merci pour ta réactivité.

C'est exactement ce qu'il me fallait :king:

Bien cordialement.