Discussion :

[riaolle]

Bonjour,

Je cherche à copier-coller un graphique en conservant la mise en forme source avec VBA, mais je n'arrive pas à trouver la syntaxe. Je connais la syntaxe avec pasteSpecial, mais cela s'applique à des cellules et non pas à des graphiques. J'ai essayé avec l'enregistreur de macro (pour coller : clique droit > conserver mise en forme source), mais il me sort ceci :

Code :

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

1
2
3
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Copy
    Range("A1").Select

Aucun code concernant le collage !? Il s'arrête à la sélection de la cellule où je vais coller.
Connaissez-vous la syntaxe associé à ce copier-coller en conservant la mise en forme source pour un graphique?

Merci d'avance

[78chris]

Bonjour

La copie d'un graphique ne modifie pas son aspect sauf éventuellement couleurs basées sur la thème actif.

Peux-tu être plus précis sur le PB que tu rencontres.

[riaolle]

Ce sont justement les couleurs basées sur le thème actif que je veux conserver.
Quand, je fais la manipulation à la main (clique droit > conserver la mise en forme source), j'ai le résultat que j'aimerais obtenir, mais je n'arrive pas à trouver l'équivalent en macro.
Voici le grahique initial :

Dans une autre feuille qui n'a pas les mêmes couleurs de thème, si je fais un copier-coller normal (ctrl+C - ctrl+V), j'obtiens :

Si, je fais un copier-coller en conservant la mise en forme source, comme cela :

J'obtiens :

Ce que j'aimerais obtenir grâce à VBA.

[a_diard]

Avec excel 2 000 avec l'enregistreur de macro j'arrive à ceci

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.copy
    Sheets("Feuil2").Select
    ActiveSheet.Paste
 
End Sub

Ensuite avec la Macro1, j'ai le résultat que tu souhaite

bonne journée.

[mercatog]

Code :

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

1
2
3
Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.ChartArea.Copy
 
Worksheets("Feuil2").Range("M12").PasteSpecial xlPasteFormats

[riaolle]

Merci pour ta réponse, a_diard. C'est ce que j'avais fait en premier jet, mais ceci correspond à un copier-coller basique et ne conserve donc pas la mise en forme source.

EDIT : je viens de voir le message de mercatog, merci J'ai aussi essayé cette syntaxe, mais j'obtiens le message d'erreur "La méthode PasteSpecial de la classe Worksheet a échoué". J'ai l'impression que pasteSpecial ne marche que pour des plages de cellules, mais peut-être ai-je tord ?

[a_diard]

J'ai essayé ceci, pour moi ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub copy()
 
 
  ActiveSheet.ChartObjects("Graphique 1").copy
 
Worksheets("Feuil2").Range("A1").PasteSpecial (xlPasteAll)
 
 
End Sub

avec le code de mercatog, j'avais la même erreur que toi.

bonne journée.

[riaolle]

Déjà essayé aussi Mais cela donne une image, et pas un graphique. C'est déjà pas mal, mais j'aurais préféré avoir un graphique (sur lequel on peut passer la souris pour pouvoir lire les valuers des données, par exemple).
Merci pour toutes ces propositions

[a_diard]

Chez moi j'ai un graphique ?????

Avec les mêmes données source que le graphique d'origine.

[riaolle]

hmm... c'est étrange, parce que j'ai une image, si j'utilise PasteSpecial(xlPasteAll) ... Serait-ce du aux versions d'Excel?? Ca m'étonne...

[mercatog]

J'avais testé sur Xl 2010

Sinon, essaies ceci

Code :

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

1
2
3
4
5
6
7
Sub test()
Worksheets("Feuil1").ChartObjects("Graphique 1").Chart.ChartArea.Copy
 
Worksheets("Feuil2").Activate
Range("A12").Select
Application.CommandBars.ExecuteMso "PasteSourceFormatting"
End Sub

[78chris]

Bonjour

Chez moi j'ai un graphique ?????

Avec les mêmes données source que le graphique d'origine.

Les thèmes n'existent pas encore dans Office 2000 : tu ne peux pas reproduire les mêmes effets.

...Sinon, essaies ceci...

Code :

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

1
2
 
Application.CommandBars.ExecuteMso "PasteSourceFormatting"

...

OK chez moi.

Question à riaolle : sur 2010, le thème est attaché au classeur pas à la feuille. Es-tu dans le même classeur ? JUste pour savoir si 2016 a évolué sur ce point.

[riaolle]

Code :

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

Application.CommandBars.ExecuteMso "PasteSourceFormatting"

C'est parfait ! Merci !!

Pour répondre à 78Chris : je copie d'un classeur vers un autre. Mais j'ai regardé, le thème est attaché au classeur et non pas à la feuille. En effet, si je me place sur une feuille et que je change le thème, le thème des autres feuilles change aussi. Donc, non, pas d'évolution sur ce point