mise à jour automatique d'un graphique

[pat76]

Bonjour,

J'ai besoin de mettre à jour un graph lorsqu'une cellule change de valeur.
(c'est à dire nouvelle valeur + date de cette nouvelle valeur dans le graph)
Je vous joint le fichier pour plus de clarté.

Merci d'avance pour vos lumières !

Pat

 

[Pierrot93]

Re : mise à jour automatique d'un graphique

Bonjour,

regarde ce lien, peut être pourras tu t'en inspirer :
https://www.excel-downloads.com/threads/graphique-mise-a-jour-automatique.120804/

bonne journée
@+

 

[pat76]

Re : mise à jour automatique d'un graphique

Merci, mais ça ne m'aide pas vraiment car moi j'ai une cellule fixe qui change de valeur (le but étant de faire progresser le graph à chaque chgt de valeur)

Pat

 

[Dranreb]

Re : mise à jour automatique d'un graphique

Bonjour
À mettre dans le module associé à Feuil1 après avoir nommé "MaSomme" la cellule à thésauriser:

Option Explicit
'

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Graph As Chart, Spl() As String, PlgDat As Range, PlgVal As Range, L As Long
Set Graph = Me.ChartObjects("Graphique 1").Chart
Spl = Split(Graph.SeriesCollection(1).Formula, ",")
Set PlgDat = Range(Spl(1))
Set PlgVal = Range(Spl(2))
L = PlgDat.Rows.Count
Application.EnableEvents = False
If CVDate(PlgDat.Rows(L).Value) < Date Then
   With Range(PlgDat, PlgVal).Rows(L): .Copy: .Insert xlShiftDown: End With
   L = L + 1: PlgDat.Rows(L).Value = Date
   End If
PlgVal.Rows(L).Value = Me.[MaSomme].Value
Application.EnableEvents = True
End Sub

À+

 

[pat76]

Re : mise à jour automatique d'un graphique

Merci ça marche !!

Petite question: Je voudrais savoir comment tu as défini les dates en abscisses ?

Pat

 

[Dranreb]

Re : mise à jour automatique d'un graphique

Je n'ai pas retouché au format de l'abscisse du graphique. J'ai juste vérifié que l'échelle était automatique et non figée afin de toujours reproduire le dernier point de la courbe. peut être conviendrait-il de revoir ça...

 

[pat76]

Re : mise à jour automatique d'un graphique

Si l'echelle est respectée cela me convient tout à fait.
Merci encore Dranreb !