Discussion :

[calimero91]

bonjour,
voila j'ai le code suivant pour remmetre a jour des graphique excel, mais cela me donne une erreur sur la ligne ActiveSheet.Shapes("Chart 1").Select.
pourriez vous m'aider svp.

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
 
Set waexcel = wrexcel.Worksheets("données_causes_EPT")
Set wdexcel = wrexcel.Worksheets("VUE_GLOBALE")
 
Npremligne3 = waexcel.Range("A1").End(xlDown).Row + 4
Ndernligne3 = waexcel.Range("A65535").End(xlUp).Row
MaPlage3 = wfexcel.Cells(Npremligne3, 6).Address + ":" + wfexcel.Cells(Ndernligne3, 6).Address
waexcel.Cells(Npremligne3 - 1, 1).Value = MaPlage3
 
wdexcel.Select
ActiveSheet.Shapes("Chart 1").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("données_production_EPT").Range( _
        MaPlage3), PlotBy:=xlColumns

j'ai essayer le code en l'adaptant sur VBA et ça fonctionne mais ça me met a jour une seule serie dependante de cette plage donnée et me supprime les autre.
j'espere avoir ete assez clair sinon demander des precision.
merci d'avance,cedric.

[ouskel'n'or]

ActiveSheet.Shapes("Chart 1").Select.

Pose effectivement un pb, les graph étant reconnus par leur index ou par leur nom complet incluant le nom de la feuille. Donc, pour ne pas avoir à le chercher, je fais ça

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To ActiveSheet.Shapes.Count
    NomGraphe = ActiveSheet.Shapes(i).Name
    If NomGraphe = "Graph1" Then
            MsgBox "Le nom de mon graphe est Graph1"
            'et là, tu fais ce que tu as à faire...
        Else
            MsgBox "Le nom de mon graphe est " & NomGraphe
    End If
Next

Tu dis

A+