Discussion :

[iio0n]

Bonjour à tous,

J'essai pour l'instant de copier coller un graphe dans un autre onglet à l'aide d'un CommandButton.
Le problème c'est que j'aimerai le placer où je veux dans la page et non sur A1!

Voici mon code:

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    Sheets("Feuil1").Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Copy
    Sheets("Feuil2").Range("A10")
    ActiveSheet.Paste
End Sub

Mais ça ne fonctionne, il me marque un msg d'erreur sur le dernier Range ...

Auriez-vous une idée de modif?

Cordialement,

Marion

[lucasgaetan]

Bonjour Marion,

J'ai trouvé une bidouille du genre:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Dim myTabl As ListObject
    Sheets("Feuil1").Select
    Set myTabl = ActiveSheet.ListObjects("Graphique 1") 'es tu sure du nom? pour cela met un espion sur ActiveSheet.ListObjects 
    myTabl.Range.Select
    Selection.Copy
    Sheets("Feuil2").Range("A10")
    ActiveSheet.Paste
End Sub

bon courage

[kuchiky]

Bonjour,

Quel est l'erreur qui est affichée?

[iio0n]

Bonjour,

Merci pour ton code! Mais ça ne fonctionne pas... il me met un msg d'erreur "l'indice n'appartient pas à la sélection".
Je comprend pas forcément l'utilité de l'espion ... à vrai dire, je ne connai pas cette fonction LOL

L'erreur affiché sur la 5eme ligne est : erreur d'éxécution 438 , propriété ou méthode non gérée par cet objet

[Marc-L]

L'erreur est évidente car la ligne est incomplète ! Aucun sens telle quelle …

Edit : c'est bien la n°5 du post initial, la n°7 dans le post #2 …

[mercatog]

Feuil1 doit contenir un objet graphique nommé Graphique 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
 
'1======Pour copier le graphique
Worksheets("Feuil1").ChartObjects("Graphique 1").Copy
Worksheets("Feuil2").Paste
 
'Ou bien le coller comme image à partir de la cellule F14 de Feuil2
'Worksheets("Feuil2").Range("F14").PasteSpecial
 
'2======Pour déplacer le graphique
Worksheets("Feuil1").ChartObjects("Graphique 1").Location Where:=xlLocationAsObject, Name:="Feuil1"
End Sub

[iio0n]

Marc-L :
Erreur post 1 : ligne 5
Erreur post 2 : ligne 4

[lucasgaetan]

L'erreur affiché sur la 5eme ligne est : erreur d'éxécution 438 , propriété ou méthode non gérée par cet objet

cher moi ça tourne

effectivement j'ai comme ligne:
Range("C21").Select

[iio0n]

Merci beaucoup mercatog! Merci à tous aussi!
Voici le code qui fonctionne comme sur des roulettes chez moi !

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
    Sheets("Feuil1").Select
    Worksheets("Feuil1").ChartObjects("Graph").Copy
    Worksheets("Feuil2").Range("A10").PasteSpecial
End Sub

[mercatog]

1. Pas besoin de la la ligne

Code :

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

Sheets("Feuil1").Select

2. La copie n'est plus un graphique mais une image