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.

[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.

[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