Discussion :

[getea85]

Bonjour,

Grace à l'aide d'une personne du forum (que je remercie encore), j'ai pu aboutir à ce code qui permet de faire évoluer la mise en forme des courbes d'un graphe :

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
26
27
28
29
30
31
32
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub Macro1()
Dim graph As Chart
Dim j As Single
Set graph = Feuil1.ChartObjects("Graphique 3").Chart
 
For j = 1 To 240 'ttes courbes désactivées
  graph.SeriesCollection(j).Border.LineStyle = xlNone
  graph.SeriesCollection(j).MarkerBackgroundColorIndex = xlNone
  graph.SeriesCollection(j).MarkerForegroundColorIndex = xlNone
Next j
 
For j = 1 To 240 'courbe active
 graph.SeriesCollection(j).Border.ColorIndex = 11
 graph.SeriesCollection(j).Border.Weight = xlThick
 graph.SeriesCollection(j).MarkerBackgroundColorIndex = 11
 graph.SeriesCollection(j).MarkerForegroundColorIndex = 11
 
 If j > 1 Then 'on désactive courbe précédente
    graph.SeriesCollection(j - 1).Border.LineStyle = xlNone
    graph.SeriesCollection(j - 1).MarkerBackgroundColorIndex = xlNone
    graph.SeriesCollection(j - 1).MarkerForegroundColorIndex = xlNone
 End If
 
 Sleep (100)
 DoEvents 'exécution des commandes
 
Next j
 
End Sub

Je ne comprends pas le rôle de la fonction DoEvents ici : si on ne la met pas, les mises en forme des courbes ne se font pas.

Pourquoi ? (J'ai bien sur regarder l'aide sur la fonction mais ça ne m'aide pas justement).

[jmfmarques]

DoEvents (voir dans aide en ligne) permet de "passer la main" au système pour qu'il exécute ses tâches (explications complètes dans l'aide en ligne)

[Vesta]

Franchement j'ai bien recu ton mp mais je ne pourrais pas te répondre... Si tu ne le met pas, le code s'exécute mais l'affichage n'est pas remis a jour, tu peux tester remet tout en noir et lance... Tu verra a la fin la derniere est rouge. Je me suis d'abord dis oui c'est une histoire de screenupdating=false mais non.

Alors j'ai mis ce DoEvents, cela lais en quelque sorte le programme le temps de réagir pour actualiser la courbe...

[jmfmarques]

NON !
Voir mon dernier message ! Celà donne la main au système, voilà !

[Vesta]

Oui jfmarques mais ce n'est pas le systeme qui change la couleur de la courbe qd meme? si? Ou alors c'est de l'affichage a l'ecran qu'il se charge

En tout cas sans ce Doevents, les courbes changes de couleurs sans s'afficher

[jmfmarques]

Et c'est qui, alors ? une fée ?
Elle mettrait un msgbox et attendrait un peu : même résultat : tout bon car le système profiterait de ce temps pour faire ce qu'il a à faire !
Lire DoEvents dans aide en ligne !

[getea85]

Ok merci

Ce que je ne saisis pas c'est que

Code :

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

1
2
 
ActiveChart.SeriesCollection(j).Border.ColorIndex = 11

n'a pas besoin de DoEvents pour fonctionner par exemple.

Enfin, ça marche, c'est l'essentiel, il faut juste que le garde dans un coin, ça pourrait me resservir un jour

[Vesta]

Et c'est qui, alors ? une fée ?
Elle mettrait un msgbox et attendrait un peu : même résultat : tout bon car le système profiterait de ce temps pour faire ce qu'il a à faire !
Lire DoEvents dans aide en ligne !

:p t'es vraiment grave mon ptit jmfmarques... Je vais jeter un coup d'oeuil en ligne promis... Je sais qu'il faut parfois s'en servir et c'est pour ca que je l'ai mis, je vois a peu pres ce que ca fait mais je ne pensais pas que ca allait jusque la...

Merci pour l'info jmfmarques

[Vesta]

ActiveChart.SeriesCollection(j).Border.ColorIndex = 11

Oui mais la tu le rappelais a chaque fois c pour ca que ca clignotait;.. Alors qu'ici on parle toujours du meme objet, on ne doit pas chaque fois le reprendre.

C'est du one shot