Discussion :

[Commodore]

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 ?

Psy

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

[Commodore]

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

pas de planter la chaine de processus

[Commodore]

personne ne peut me répondre ?

[Singular]

Je t'ai répondu déjà... DoEvents

[Commodore]

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 :

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