mise à jour des données graphiques

[albert]

Bonsoir à tous,

J’ai un graphique extraordinaire
http://www.excel-downloads.com/html/French/forum/download.php?finfo=1,51632,5380/graphiques.zip

dans le fil http://www.excel-downloads.com/html/French/forum/messages/1_51568_51568.htm

envoyé par michel. Il fonctionne à merveille …
je ne parviens pas à le mettre à le mettre à jour

J’ai essayé de remplacer
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(X).Values = Sheets(ListBox1.Value).Range("B1:B14")

par
ActiveChart.SeriesCollection(X).Values = Sheets(ListBox1.Value).Range("B2", _ Range("B2").End(xlDown))

Ça fonctionne bien pour la mise à jour du graphe Feuil1
Mais pour les utres feuilles, c’est sans succès… pourtant je pense qu’une s élection de colonne n’a pas d’effets sur une boucle :

For X = 1 To ActiveChart.SeriesCollection.Count
If ActiveChart.SeriesCollection(X).Name = ListBox1.Value Then Test = 1

J’ai essayé diverses solutions, glanées sur le web… Range("B2")CurrentRegion set Plage =…

Une soluce excelabo (bouton Xlabo -utilisée après avoir créé un nouveau graph – bouton creer
http://www.excelabo.net/xl/graph.htm#abscissesauto

Private Sub
CommandButton1_Click()
Dim Graph As ChartObject
Set ac = ActiveCell
Application.ScreenUpdating = False
For Each Graph In Sheets(1).ChartObjects
Graph.Activate

ActiveChart.Axes(xlCategory).CategoryType = xlCategoryScale
Next Graph
ac.Activate
End Sub




merci d'avance pour un coup d'main pour mettre à jour les données de chaque feuille


albert

 

[michel]

bonsoir albert

dans mon premier exemple les courbes étaient définies dans des plages fixes
si tu as des nombres de données différentes d'une feuille à l'autre tu peux remplacer la ligne qui te pose problemedans la macro par :

ActiveChart.SeriesCollection(X).Values = Sheets(ListBox1.Value).Range("B2:B" & Sheets(ListBox1.Value).Range("B65536").End(xlUp).Row)

j'espere que cela répondra à ta demande

bonne soirée
Michel

 

[albert]

merci michel, je ne sais comment te remercier, j'ai scruté le web toute la semaine sans succès...

avant de voir ton post, je venais juste de trouver un code qui me semblait utilisable :
( un grand merci également à PhiBou =
http://www.excel-downloads.com/html/French/forum/download.php?finfo=1,49524,5117/Samuel.ZIP

dans le fil

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=49358&t=49331

cordialement

albert