[Processus] Garder le contrôle sur un userform

Version imprimable

29/01/2008, 17h42
Commodore

[Processus] Garder le contrôle sur un userform

Bonjour,

Quand on exécute un traitement long à partir d'un bouton placé sur un UserForm, on perd le controle pendant la durée d'éxécution de la macro.

Je cherche comment faire pour garder le contrôle sur le form sans pour autant interrompre la macro en cours...

J'ai pensé à faire l'équivalent d'un fork() en C mais je ne sais absolument pas comment m'y prendre ni si c'est la méthode la plus simple ni si c'est possible.

Quelqu'un pourrait-il m'apporter des éléments de réponse svp ? :hola:

Psy
29/01/2008, 17h52
Singular

Si c'esl long, c'est probablement que tu fais une longue boucle quelconque.

Tu peux insérer un DoEvents dans la boucle.

Par contre, c'est dangereux de faire ça car si l'utilisateur redémarre le processus en cliquant sur un contrôle, la chaîne des processus risque de planter. :aie:
29/01/2008, 17h53
Commodore

le but est de pouvoir lancer plusieurs macros en même temps...

pas de planter la chaine de processus :aie:
31/01/2008, 10h10
Commodore

personne ne peut me répondre ? :?
31/01/2008, 12h26
Singular

Je t'ai répondu déjà... DoEvents 8O:)

je le place où le DoEvents alors ?
voila du concret:

je souhaite garder la main pour pouvoir lancer une autre macro en même temps que ce code s'éxécute:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    i = 2
    Do While Not table.EOF
        With Workbooks(NomFich).Worksheets("Feuil1")
            .Range("A" & i) = table.Fields(0).Value
            .Range("B" & i) = table.Fields(1).Value
            .Range("C" & i) = table.Fields(2).Value
            .Range("D" & i) = table.Fields(3).Value
            .Range("E" & i) = table.Fields(4).Value
            .Range("F" & i) = table.Fields(5).Value
            .Range("G" & i) = table.Fields(6).Value
            .Range("H" & i) = table.Fields(7).Value
            .Range("I" & i) = table.Fields(8).Value
            .Range("J" & i) = table.Fields(9).Value
            .Range("K" & i) = table.Fields(10).Value
            table.MoveNext
            i = i + 1
        End With
    Loop

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    i = 2
    Do While Not table.EOF
        With Workbooks(NomFich).Worksheets("Feuil1")
            Application.EnableEvents = False
            .Range("A" & i) = table.Fields(0).Value
            .Range("B" & i) = table.Fields(1).Value
            .Range("C" & i) = table.Fields(2).Value
            .Range("D" & i) = table.Fields(3).Value
            .Range("E" & i) = table.Fields(4).Value
            .Range("F" & i) = table.Fields(5).Value
            .Range("G" & i) = table.Fields(6).Value
            .Range("H" & i) = table.Fields(7).Value
            .Range("I" & i) = table.Fields(8).Value
            .Range("J" & i) = table.Fields(9).Value
            .Range("K" & i) = table.Fields(10).Value
            table.MoveNext
            Application.EnableEvents = True
            i = i + 1
        End With
        DoEvents
    Loop

Remarques aussi la présence des Application.EnableEvents... ils assurent que les évenements ne viendront pas bousiller les autres routines semblables concurantes.

01/02/2008, 11h08
Commodore

impeccable !!
ça rame un peu quand même, mais bon, c'est tolérable.

merci beaucoup :D

[Résolu]