[VBA-E] fonction DoEvents ?

Version imprimable

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:

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).

18/05/2006, 11h30
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)
18/05/2006, 11h31
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...
18/05/2006, 11h32
jmfmarques

NON !
Voir mon dernier message ! Celà donne la main au système, voilà !
18/05/2006, 11h33
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
18/05/2006, 11h36
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 !
18/05/2006, 11h37
getea85
Ok merci

Ce que je ne saisis pas c'est que
Code:

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 ;)
18/05/2006, 11h38
Vesta

Citation:

Envoyé par 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 !

: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
18/05/2006, 11h40
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