Discussion :

[carolinej]

Bonjour, je suis bloquée sur une manipulation assez simple.
J’ai créé une macro qui copie et colle des graphiques d’une feuille à une autre (meme fichier Excel)
Le problème c’est que lorsque j’ouvre mon fichier et que je lance la macro, seul le graphique visible (les deux autres sont sur la même feuille mais plus bas) est copié puis collé, pour le suivant une erreur apparaît (erreur définie par l’objet ou l’application). Si je fais debug, que je descends sur la feuille jusqu’à ce que les deux autres graphiques soient visibles et que je relance ma macro, plus aucun problème.

Quelqu’un pourrait il m’aider svp? On dirait qu’ils ne se chargent pas s’ils ne sont pas visibles à l’ouverture.

Je vous remercie !

[Menhir]

Difficile de savoir ce qui ne va pas dans le code sans voir le code.
Fais une copie de ton code dans un message, de préférence encadré de balises CODE (l'icone #).

[carolinej]

Bonjour menhir et merci pour ta réponse.

Mon code est le suivant:

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
23
Sub exportgraph
 
Dim cht as chartobject
Dim i as long, j as long, b as long
 
i = 5
j = 18
b = 1
For each cht in sheets(“Sheet Caroline”).chartobjects
    Cht.copy
    Sheets(9).paste
    With active sheet.chartobjects(b)
        .left = range (“A” & i & ":G" & j).left
        .top = range (“A” & i & ":G" & j).top
        .width = range (“A” & i & ":G" & j).width
        .height = range (“A” & i & ":G" & j).height
    End with
    b = b+1
    i=i+15
    j=j+16
Next cht
 
End sub

J’ai essayé d’une autre manière (sans boucle) mais le même problème apparaît.

Le message d’erreur apparaît lorsque b=2 sur la ligne Cht.copy.

Le premier graphique est copié collé redimensionné et positionné sans aucun problème mais après ça bloque.
Lorsque je vais sur la feuille Excel que je descends jusqu’a ce que les deux autres graphiques soient visibles et que je relance ma macro, plus aucun problème.
Comme si le fait de les voir les rendait «*actifs*»
Je ne peux pas joindre le fichier, car c’est pour un projet pro et que l’acces est bloqué (données privés), désolé.

En tout cas merci beaucoup.

[mercatog]

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
Sub exportgraph()
Dim i As Long, j As Long
Dim Cht As ChartObject
Dim Ws As Worksheet
 
i = 5
Set Ws = Worksheets(9)
For Each Cht In Worksheets("Sheet Caroline").ChartObjects
    Cht.Copy
    With Ws
        .Paste
        With .ChartObjects(.ChartObjects.Count)
            .Left = Ws.Range("A1").Left
            .Top = Ws.Range("A" & i).Top
            .Width = Ws.Range("A1:G1").Width
            .Height = Ws.Range("A" & i & ":A" & i + 13).Height
        End With
    End With
    i = i + 15
Next Cht
Set Ws = Nothing
End Sub