OVH Cloud OVH Cloud

Copie de Graphique

12 réponses
Avatar
Yolande
Bjr,
Merci =E0 tous ceux qui participent =E0 ce forum.

J'ai une question sous VBA via Excel. Est-il possible de=20
copier un graphique sans que les donn=E9es soient=20
rattach=E9es ?
Cad : Dans Classeur 1 j'ai des donn=E9es, je g=E9n=E9re un=20
graphique sur une nouvelle feuille du classeur 1. Je copie=20
ma feuille dans un autre classeur (Classeur 2). Si je=20
modifie mes donn=E9es (Classeur 1) pour regenerer un nouveau=20
graphique, le premier graphique qui se trouve dans=20
classeur 2 se trouve =EAtre =E9galement modifi=E9.
En fait je cherche l'identique au collage sp=E9cial mais sur=20
un graphique.
Merci pour votre aide

2 réponses

1 2
Avatar
J'ai une autre solution qui consiste à sauvegarder mon
graphique en .GIF, puis à insérer le fichier .Gif dans ma
feuille xls de mon nouveau classeur.
Merci pour tout.
-----Message d'origine-----
ok,

alors ce que tu peux faire, c'est copier l'image du
graphique

pour cela tu maintiens Shift enfoncé et tu cliques sur
Edition, puis sur

copier l'image
tu choisis tel qu'a l'écran ou l'impression
tu vas dans ton nouveau classeur
et la tu fais coller
mais attention, ton graphique n'est plus un graphique !
et oui ! mais une

image


ps dans mon post précédent, j'avais oublié de marquer que
pour complètement

désactiver la liaison des données du graphique,
sélectionne la série (de

manière à voir la formule dans la barre
de formule) et tu fais F2 puis F9.

A+

Astérix


.



Avatar
Nathan
Bonjour.

Le collage spécial s'applique sans problème pour un graphique (et allege
les documents). Brut de fonderie voila ce que donne le code de
l'enregistreur de macros (a ameliorer et adapter, evidemment):

ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("Classeur2").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized
Selection.Copy
Sheets("Feuil2").Select
Range("C9").Select
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:=
_
False, DisplayAsIcon:úlse

J'espere que ça t'aidera (et désolé si je réponds à côté).

Natahan

wrote in
news:1348c01c443e4$fc10a410$:

Merci pour ta réponse,
J'ai testé ton prog. mais la liaison avec le classeur qui
contient les données suivent !!! et c'est là le problème
je ne le veux pas
-----Message d'origine-----
Bonjour.

à adapter.

Sub CopyGraph()
Dim Sht As Chart, Courbe As Series
Application.ScreenUpdating = False
Set Sht = Charts.Add
With Sht
.ChartType = xlColumnClustered
.SetSourceData Sheets("Feuil1").Range("A1:A10"),
xlColumns

.Location xlLocationAsNewSheet
.Move
End With
For Each Courbe In ActiveChart.SeriesCollection
With Courbe
.Values = .Values
.XValues = .XValues
End With
Next
Application.ScreenUpdating = True
Set Sht = Nothing: Set Courbe = Nothing
End Sub

Alain CROS

"Yolande" a écrit
dans le message de news: 1341601c443da$6d0915e0

$
Bjr,
Merci à tous ceux qui participent à ce forum.

J'ai une question sous VBA via Excel. Est-il possible de
copier un graphique sans que les données soient
rattachées ?
Cad : Dans Classeur 1 j'ai des données, je génére un
graphique sur une nouvelle feuille du classeur 1. Je copie
ma feuille dans un autre classeur (Classeur 2). Si je
modifie mes données (Classeur 1) pour regenerer un nouveau
graphique, le premier graphique qui se trouve dans
classeur 2 se trouve être également modifié.
En fait je cherche l'identique au collage spécial mais sur
un graphique.
Merci pour votre aide


.





1 2