Discussion :

[jojo86]

Bonsoir à tous !

Je voudrais lorsque j'ajoute une colone dans mon tableau par macro, qu'un graphique soit réactualisé...

Je voudrais savoir s'il était possible d'utiliser

Code :

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

Range (Cells(x,x),Cells(x,x))

Plutot que :

Code :

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

R9C13:R9C110

Pour remetre mon exemple dans le contexte voici un bout de macro enregistrée :

Code :

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

1
2
3
 
ActiveChart.SeriesCollection(1).XValues = "=Data!R4C13:R4C110"
ActiveChart.SeriesCollection(1).Values = "=Data!R9C13:R9C110"

Car vue comme ça je ne vois pas comment réactualiser mon graphique...

La seul solution que je vois c'est d'éxtraire de R4C110 le 110 et de faire + 1 pour incrémenter mon graphique...
Merci de votre aide !

[Pierre Fauconnier]

Bonjour

Pour ma part, je résoudrais le problème par une meilleure conception du classeur, notamment en appuyant mon graphique sur une plage mobile créée avec DECALER...

Le VBA, c'est super chouette, mais si je peux m'en passer, je préfère...

[jojo86]

Le problème c'est que ma plage est illimitée... Elle n'a pas de fin... et je ne connais pas DECALER qu'est-ce donc?

Il n'éxiste aucune solution par programation???

[mercatog]

Si tu peux essayer?

Code :

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

ActiveChart.SeriesCollection(1).XValues = Sheets("Data").Range("B3:C7")

ou par exemple

Code :

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

1
2
3
4
5
Dim plage1 as range
LastLig as long
'lastlig la dernière ligne de ta plage de données
set plage1=sheets("Data").range("A3:M" & LastLig) 'à adapter
ActiveChart.SeriesCollection(1).XValues =plage1

[Fvandermeulen]

...
La seul solution que je vois c'est d'éxtraire de R4C110 le 110 et de faire + 1 pour incrémenter mon graphique...

Salut,

Ton R4C110 ou R4C110+1 (du moins 110+1) correspond à la dernière ligne à inclure dans ton graph, il suffit donc de récupérer le numéro de cette ligne, voici un moyen

Code :

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

DerLig = cells(columns(4).cells.count,4).end(xlup).row

Tu peux alors faire:

Code :

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

ActiveChart.SeriesCollection(1).XValues = "=Data!R4C13:R4C" & DerLig

A+

[jojo86]

Nickel !!!

Merci à vous tous !