Copier Coller d'un graph avec VBA

Version imprimable

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:

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

Bonjour Marion,

J'ai trouvé une bidouille du genre:

Code:

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

30/07/2014, 13h19
kuchiky

Bonjour,

Quel est l'erreur qui est affichée?
30/07/2014, 13h27
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
30/07/2014, 13h30
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 …

Feuil1 doit contenir un objet graphique nommé Graphique 1

Code:

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

30/07/2014, 13h45
iio0n

Marc-L :
Erreur post 1 : ligne 5
Erreur post 2 : ligne 4
30/07/2014, 13h47
lucasgaetan

1 pièce(s) jointe(s)

Citation:

Envoyé par iio0n

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

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

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

30/07/2014, 13h55
mercatog

1. Pas besoin de la la ligne

Code:

Sheets("Feuil1").Select

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