Discussion :

[TheFlow]

Bonjour à tous !

J'ai besoin d'actualiser la source d'un graphique en plein milieu d'un long process VBA. Cette source est actualisée chaque semaine, la plage de cette source est donc amenée à grandir d'une colonne chaque semaine.

Comment indiquer à mon graphique de sélectionner automatiquement la plage A5:X9 (avec la colonne X pour inconnue) ? Voici ma tentative :

Code :

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

1
2
3
4
5
6
7
    Sheets("CEL_HEBDO").Select
    ActiveSheet.ChartObjects("Graphique 5").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Sources").Range("A5", Range("A8").End(xlToRight)), _
        PlotBy:=xlRows
    ActiveWorkbook.Save
    ActiveSheet.ChartObjects("Graphique 5").Activate

Je remercie à l'avance tous ceux qui prendront la peine de me venir en aide.

Bonne soirée !

[mercatog]

Regardes ici pour trouver la derniere colonne renseignée
dans source chart tu mettra la variable Range qui en découle
http://www.developpez.net/forums/d45...gnees-feuille/

[TheFlow]

Merci de m'avoir répondu !

J'ai tenté d'incorporé différents codes dans mon process, mais il y a toujours une erreur. Peut-être que cela vient de ma manière de sélectionner la source de mon graphique ?

[mercatog]

mets ce que tu as fais ici;
nous verrons ensemble

[TheFlow]

Par exemple, ce code là fonctionne très bien lorsqu'il n'est pas l'objet de la source du graphique.

Code :

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

Sheets("Sources").Range("A5", Range("A8").End(xlToRight)).select

Lors de mon essai, j'ai bien entendu retiré le ".select" lorsque je l'ai mis en source.

(malheureusement je n'ai pas sauvegardé mes précédant essais. Je les referai volontier si l'on ne s'en sort pas avec le code que je viens de vous présenter).

merci encore

[mercatog]

Refais cela

Code :

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

1
2
3
4
5
6
7
8
Dim DerCol as Integer
Dim Plaage as Range
DerCol=Range("A9").End(xlToRight).Column
 
With Sheets("Sources")
set Plage= .Range(.cells(5,1),.cells(9,DerCol))
...
End With

Plage: ta source donnée pour ton graphe