[VBA-E]Actualisation

Version imprimable

10/03/2006, 14h21
alex_95

[VBA-E]Actualisation
Bonjour,

Voila j ai un souci lors de l'execution d'une macro.
Cette derniere en appele d'autres et affiche entre 2, un userform afin de faire patienter l'utilisateur.
Le probleme c'est que la macro s'arrete tant que je n'ai pas ferme le userform.
Comment faire pour que la macro continue a s'effectuer pdt ce tps ?

Voila mon code actuel
Code:

1 2 3 call tri classement.show call conclusion
Que faire ?

Merci d avance
10/03/2006, 14h30
Megaxel

Salut!
Regarde l'aide sur "DoEvents".
Ça devrait te donner des idées.
Ou fais une recherche avancée sur ce forum sur cette fonction.
10/03/2006, 14h39
alex_95

J'ai lu l'aide sur le Doevents mais j vois vraiment pas comment faire.

Tu peux m'aider stp ?
10/03/2006, 15h44
alex_95

J ai inseré un DoEvents mais je ne vois pas de chgt...

Je dois tjs cliquer pour poursuivre la macro...
ou attendre que ma barre de progression ai atteind 100 % avant de passer a la macro suivante...

comment faire donc ?

Merci
10/03/2006, 16h08
random

monformulaire.recalc
10/03/2006, 16h28
alex_95

cad ?

ca fait quoi ?

c'est a quel userform que je dois faire recalc ?
10/03/2006, 16h38
SfJ5Rpw8
il faut que tu appelle ta macro conclusion dans l'événement Activate de ta form 'Patientez' et que tu rajoute des DoEvents dans ta macro conclusion ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Conclusion For i = 1 To 800000 Label1 = i DoEvents Next end sub Private Sub UserForm_Activate() Conclusion Hide End Sub
10/03/2006, 16h50
alex_95

J ai fait ce que tu viens de me dire, en effet ma macro ne s'arrete pas.
Par contre, la progress bar n'avance plus et reste bloquée à 0.

Sais tu comment remedier a ca ?

Merci d avance
10/03/2006, 17h25
SfJ5Rpw8

elle est animée comment ta progress bar ?

par le code suivant

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
33
34
35
Sub LaMacroQuiEstLongue()
Top20.Show
    'If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
Application.ScreenUpdating = False
Top20.Repaint
    Sheets("Feuil1").Select
    Dim Counter As Integer
    Dim RowMax As Integer, ColMax As Integer
    Dim r As Integer, c As Integer
    Dim PourcentageEffectue As Single
 
 
    Cells.Clear
    Counter = 1
    RowMax = 200
    ColMax = 25
    For r = 1 To RowMax
        For c = 1 To ColMax
            Cells(r, c) = Int(Rnd * 1000)
            Counter = Counter + 1
        Next c
        Sleep (1000)
        PourcentageEffectue = Counter / (RowMax * ColMax)
        Call UpdateProgress(PourcentageEffectue)
    Next r
 
End Sub
 
Sub UpdateProgress(PourcentageEffectue)
    With Top20
        .FrameProgress.Caption = Format(PourcentageEffectue, "0%")
        .LabelProgress.Width = PourcentageEffectue * (.FrameProgress.Width - 10)
        .FrameProgress.Repaint
    End With
End Sub

Je voudrais pouvoir effectuer lamacroquiestlonge (donc avoir la barre de progression qui avance) et dans le meme tps que la macro lancée par l'activation du top20 via top20.show se poursuive...

J'essaye differents trucs et ca marche tjs pas

Merci d avance

10/03/2006, 17h36
SfJ5Rpw8

pas trés clair ton code sans les balise [Code ] [\Code ] ..!!

sinon enléve tes Sleep !!! ...

rajoute des DoEvents() dans tes différentes boucles ( DoEvents permet de laisser "la main" au systéme..pour )

n' ouvre pas ta fenêtre top 20 ... dans ta macro longue, mais appelle fais le contraire comme je te l'ai montré plus haut et appelle ta macro longue dans le activate du top20 ...
10/03/2006, 17h47
random

rajoute un me.recalc avant les do events
10/03/2006, 17h58
alex_95

J suis en train d'essayer...

Mais y a deja un souci: il me dit pour l'utilisation de me.recalc :

"erreur de compilation"
"Utilisation incorrecte du mot clé me"

Que dois je faire ?
11/03/2006, 10h47
SfJ5Rpw8

Citation:

Envoyé par random

rajoute un me.recalc avant les do events

? il n'y as pas de procedure recalc sur les userform d'excel ! ( c'est bien du VBA sous excel ?)
11/03/2006, 15h15
AlainTech

Citation:

Envoyé par bbil

( c'est bien du VBA sous excel ?)

D'où l'intérêt des tags [VB], [VBA] dans les titres.