Discussion :

[sofisaas]

Bonjour à tous,

Je me tourne vers vous pour avoir un conseil en vba sur la fonction Application.Wait.

En effet, j'ai créé un graphique dynamique et je souhaite que les points du graphique apparaissent les uns après les autres. Ça marche bien. Sauf que je souhaite que ça aille plus vite et n'attendre d'1/2 seconde entre chaque point.
Voilà la fonction attendre que j'utilise:

Code :

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

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)

Le troisième paramètre doit être un integer, je ne peux donc pas remplir une demi seconde. Y-a-t-il un autre moyen de faire?

Je joins mon fichier Excel à ce message.

Merci d'avance pour vos réponses.

[kiki29]

Salut, via Sleep

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub Essai()
.......
        Sleep 500
.......
End Sub

[sofisaas]

Merci kiki29, seulement ça ne fonctionne pas. Au lieu de m'afficher le graphique point par point au fur et à mesure, il attend un moment puis m'affiche tout le graphique en entier.

Voilà mon 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
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
 
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub AnimerAuto()
Dim i
 
ActiveSheet.ChartObjects("Graphique 1").Activate
RAZ
For i = 2 To 32
    ActiveChart.SeriesCollection(1).Values = "=Feuil1!$B$2:$B$" & i
    ActiveChart.SeriesCollection(2).Values = "=Feuil1!$C$2:$C$" & i
    ActiveChart.SeriesCollection(3).Values = "=Feuil1!$D$2:$D$" & i
    ActiveChart.SeriesCollection(4).Values = "=Feuil1!$E$2:$E$" & i
    ActiveChart.SeriesCollection(5).Values = "=Feuil1!$F$2:$F$" & i
    ActiveChart.SeriesCollection(6).Values = "=Feuil1!$G$2:$G$" & i
    ActiveChart.SeriesCollection(7).Values = "=Feuil1!$H$2:$H$" & i
    'Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    Sleep 500
Next i
 
End Sub
 
Sub RAZ()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Values = "=Feuil1!$B$1:$B$1"
    ActiveChart.SeriesCollection(2).Values = "=Feuil1!$C$1:$C$1"
    ActiveChart.SeriesCollection(3).Values = "=Feuil1!$D$1:$D$1"
    ActiveChart.SeriesCollection(4).Values = "=Feuil1!$E$1:$E$1"
    ActiveChart.SeriesCollection(5).Values = "=Feuil1!$F$1:$F$1"
    ActiveChart.SeriesCollection(6).Values = "=Feuil1!$G$1:$G$1"
    ActiveChart.SeriesCollection(7).Values = "=Feuil1!$H$1:$H$1"
End Sub

Merci pour votre aide !

[kiki29]

Salut, autant pour moi

Code :

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

1
2
3
 
        Sleep 500
        DoEvents

sinon en pj un exemple différent du tien et qui lui fonctionne ( exemple sorti des décombres )

[pgz]

Bonjour.

Tu peux essayer d'utiliser l'API Gettickcount.

Tu déclares l'API. Si tu as une version 32 bits d'Office

Code :

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

Private Declare Function GetTickCount Lib "kernel32" () As Long

Si tu utilises une version 64 bits, tu devras chercher et adapter.
Ensuite tu peux créer une procédure d'attente qui ne bloque pas le fonctionnement

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub subWait(ByVal lDuree As Long)
'temporisation, lDuree en ms
Dim lDep As Long
 
lDep = GetTickCount
While GetTickCount - lDep < lDuree
    DoEvents
Wend
 
End Sub

Et tu l'utilises dans ton code

Code :

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

1
2
3
4
5
6
7
For i = 2 To 32
   ...
    ActiveChart.SeriesCollection(7).Values = "=Feuil1!$H$2:$H$" & i
    'Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    Call subWait(500)
Next i
...

Cordialement,

PGZ

[sofisaas]

Merci kiki29 et pgz, j'ai testé toutes vos propositions et cela fonctionne parfaitement. Merci beaucoup!