Discussion :

[EIF69]

Bonjour,

Je me casse un peu la tête sur une bidouille.

Mon fichier est tellement gros (10Mo) que je souhaite l’alléger un peu pour des diffusions par mail.

Le fichier est composé de 50 onglets identiques en forme. Chaque onglet est composé d’une partie « chiffre » à gauche et d’une partie « graphique » à droite.

Je veux supprimer toutes les parties graphiques à chaque fermeture du fichier. Puis faire une copie du graph de mon onglet type sur chaque onglet à l’ouverture.

Donc :
J’ai créé un onglet type avec la structure du graph que je veux.
Je souhaite copier mon graph type sur un autre onglet qui a la même structure.
Là le truc se corse un peu pour moi.
Je n’arrive pas à créer la commande qui dit coller le graphique ici et lui appliquer les données sources de l’ « activesheet ».
J’arrive bien à modifier au cas par cas, mais pas à commander : prendre les données de l’ « activesheet »

J’ai joint un exemple de mon fichier, si cela peut vous aider à comprendre mon problème.


Est-ce que l’un des membres saurait m’aider ?

[mercatog]

C'est un peu télescopé, mais ça a l'aire de fonctionner sur ton fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
 
Dim ws As Worksheet
Application.ScreenUpdating = False
 
For Each ws In Worksheets
    If ws.Name <> "Page type" Then
        Sheets("Page type").Select
        ActiveSheet.ChartObjects("Graphique 31").Activate
        ActiveChart.ChartArea.Select
        ActiveChart.ChartArea.Copy
        ws.Activate
        ws.Range("P12").Select
        ws.Paste
        Application.CutCopyMode = False
        ws.Activate
        ActiveChart.SetSourceData Source:=ws.Range("N12:N14"), PlotBy:=xlColumns
         ActiveChart.Deselect
    End If
Next ws
Application.ScreenUpdating = True
End Sub