Affichage graphique dans UserForm

[ananar]

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.

[JackOuYA]

bonsoir,...

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

[ananar]

Bonsoir JackOuYA,

Voici le code :

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.

[JackOuYA]

re, tu as vu ma nouvelle signature



c'est quoi : Données ?

[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

[JackOuYA]

feuille excel. .? le nom dans l'onglet ?

si oui essai de remplacer Données par :

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

[SilkyRoad]

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:

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

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

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

[ananar]

Bonjour SilkyRoad,

Merci pour ta réactivité.

C'est exactement ce qu'il me fallait

Bien cordialement.