[VBA-E] Rafraichissement d'un graphe

**getea85** · 15/05/2006, 10h33

Bonjour,
J'ai un petit souci de mise en forme.
Mon objectif est de faire apparaître un graphe avec plusieurs courbes avec une courbe qui change de couleur à chaque passage de boucle (pour avoir un effet visuel de progression : en gros une courbe rouge se "balade" au milieu de courbes noires).

Ci joint le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim j As Single
ActiveSheet.ChartObjects("Graphique 1").Activate
For j = 1 To 5 'ttes courbes en noir
    ActiveChart.SeriesCollection(j).Select
     With Selection.Border
        .ColorIndex = 1
     End With
Next j
For num = 1 To 5 'courbe active en rouge
 ActiveChart.SeriesCollection(num).Select
    With Selection.Border
        .ColorIndex = 3
 End With
 
 If num > 1 Then 'on remet courbe précédente en noir
   ActiveChart.SeriesCollection(num - 1).Select
    With Selection.Border
      .ColorIndex = 1
    End With
 End If
 Sleep (200)
Next num

Ça marche sauf que à chaque changement de couleur de courbe, le graphe est rafraichi dans sa totalité ce qui fait que les axes, les légendes "clignotent" : ce n'est pas beau, ce n'est pas fluide.
Y a t'il un moyen pour éviter ce rafraichissement ?

**Vesta** · 15/05/2006, 14h25

Tu peux joindre le fichier ou c'est confidentiel?

Sinon je veux bien regarder ca...

**getea85** · 15/05/2006, 15h00

Il n'y a absolument rien de confdentiel, c'est juste un test pour l'instant.

Dans une feuille Excel, j'ai juste mis un tableau de données pour créer 5 courbes dans un graphique.

Et une macro dont le code est ci dessus pour changer les couleurs des courbes.

Bref un truc tout simple qui marche mais le graphe "sautille" quand les courbes changent de couleur, c'est ce qui me gène.

**Vesta** · 15/05/2006, 18h18

Tu veux pas me le joindre ca m'evitera de refaire le fichier entierement

**getea85** · 16/05/2006, 10h08

le fichier concerné :

test courbes4.zip

**Vesta** · 16/05/2006, 14h16

Voila ma poule c bon chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub Macro1()
 
Dim Graph As Chart
Set Graph = Feuil1.ChartObjects("chart 1").Chart
 
Dim j As Single
 
 
For j = 1 To 5 'ttes courbes en noir
    Graph.SeriesCollection(j).Border.ColorIndex = 1
Next j
 
For num = 1 To 5 'courbe active en rouge
    Graph.SeriesCollection(num).Border.ColorIndex = 3
 
   If num > 1 Then 'on remet courbe précédente en noir
       Graph.SeriesCollection(num - 1).Border.ColorIndex = 1 
   End If
   Sleep (600)
   DoEvents
Next num
End Sub