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 ?