[VBA-E]Actualisation

**alex_95** · 10/03/2006, 15h21

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 :

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

1
2
3
call tri
classement.show
call conclusion

Que faire ?

Merci d avance

**Megaxel** · 10/03/2006, 15h30

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.

**alex_95** · 10/03/2006, 15h39

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

Tu peux m'aider stp ?

**alex_95** · 10/03/2006, 16h44

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

**random** · 10/03/2006, 17h08

monformulaire.recalc

**alex_95** · 10/03/2006, 17h28

cad ?

ca fait quoi ?

c'est a quel userform que je dois faire recalc ?

**SfJ5Rpw8** · 10/03/2006, 17h38

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 :

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

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

**alex_95** · 10/03/2006, 17h50

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

**SfJ5Rpw8** · 10/03/2006, 18h25

elle est animée comment ta progress bar ?

**alex_95** · 10/03/2006, 18h29

par le code suivant

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

**SfJ5Rpw8** · 10/03/2006, 18h36

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

**random** · 10/03/2006, 18h47

rajoute un me.recalc avant les do events

**alex_95** · 10/03/2006, 18h58

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 ?