Graphique à évolution automatique

[Patricia25]

Bonsoir le furum !

Je me trouve de nouveau confrontée à un problème !
Je cherche à réaliser un graphique qui étend sa plage de donnée toutes les x secondes. Autrement dit, un graphique qui évolue toutes les x secondes automatiquement.

J'ai tentée avec l'enregistreur de macro mais il ne tient pas compte du temps d'arrêt que je souhaite 😱

Je vous joints un fichier pour le cas où je n'ai pas été très clair!!

Merci beaucoup (encore et encore 😀)

 

[Hulk]

Re : Graphique à évolution automatique

Hello,

Voici une méthode. Bravo à l'auteur (me rappele plus 😱)

 

[Patricia25]

Re : Graphique à évolution automatique

Merci Hulk, mais cela ne correspond pas avec mon besoin 😱
Cet auteur fait varier ces 5 graphiques toutes les secondes.
Or je souhaiterais que ce soit la plage de données qui augmente de 1 casse toutes les secondes...
Merci quand même !!

Auriez vous une autre idée ? 🙄

 

[kjin]

Re : Graphique à évolution automatique

bonsoir, salut hulk 🙂,

Je vous joints un fichier pour le cas où je n'ai pas été très clair!!

Le fichier n'apporte rien quant à la compréhension du pb
Un petit effort...
A+
kjin

 

[Patricia25]

Re : Graphique à évolution automatique

Mae Culpa kjin, je n'ai pas posté le bon fichier !
Je poste le bon...mais qui ne fonctionne pas bien pour autant !

 

[Patricia25]

Re : Graphique à évolution automatique

Fichier trop volumineux et le fichier Zip ne passe pas 😡
voici le code :

Sub LancementGraph()

    Range("B15:B16").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Graph!$B$15:$B$16")
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection(1).Values = "=Graph!$B$16:$B$17"
    Call Tempo
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Values = "=Graph!$B$16:$B$18"
    Call Tempo
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Values = "=Graph!$B$16:$B$19"
 
End Sub



Sub RéinitialiserGraph()

ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Values = "=Graph!$B$16:$B$16"
End Sub
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Sub Tempo()
    Sleep (10000)    ' pause de 1 seconde
End Sub

 

[ROGER2327]

Re : Graphique à évolution automatique

Bonsoir à tous

Un essai dans le classeur joint, avec ce code :

[COLOR="DarkSlateGray"][B]Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub LancementGraph()
Dim i&
   For i = 1 To 33
      If i > 1 Then Call Tempo
      ActiveSheet.ChartObjects("Chart 4").Chart.SeriesCollection(1).Values = Sheets("Graph").Range("B15:B15").Resize(i, 1)
      Application.ScreenUpdating = True
   Next
End Sub

Sub RéinitialiserGraph()
   ActiveSheet.ChartObjects("Chart 4").Activate
   ActiveChart.ChartType = xlLine
   With ActiveChart.SeriesCollection(1)
      With .Border
         .Weight = xlThin
         .LineStyle = xlAutomatic
      End With
      .MarkerBackgroundColorIndex = xlAutomatic
      .MarkerForegroundColorIndex = xlAutomatic
      .MarkerStyle = xlDiamond
      .Smooth = False
      .MarkerSize = 8
      .Shadow = False
      .Values = Sheets("Graph").Range("B15:B15")
   End With
End Sub

Sub Tempo()
   Sleep (1000)
End Sub[/B][/COLOR]

(Le fichier d'environ 40 Ko passerait même sans compression.)​

ROGER2327
#3983

Lundi 16 Tatane 137 (Transfig. de Saint Vincent van Gogh, transmutateur, SQ)
11 Thermidor An CCXVIII
2010-W30-4T22:47:24Z

 

[kjin]

Re : Graphique à évolution automatique

bonsoir,
Je n'ai pas tout compris
A+
kjin

 

[Patricia25]

Re : Graphique à évolution automatique

Bonjour ROGER2327 et kjin!

ROGER2327 : Ton fichier marche parfaitement et me convient ! Merci beaucoup! 😀😱

kjin : Mais bien que tu as compris! Ton fichier me convient également il est très bien 😛

Alors un grand merci à vous deux ! Moi qui ai cherché quelques heures sont résultats concluant... Bravo à vous deux ! Et pour bientôt : Bon we