Bonsoir,
j'ai un classeur avec une trentaine de feuilles
j'ai un ensemble de macro qui synchronisent ces feuilles (mise en page) selon le trimestre choisi.
cette tâche nécessite presque 2 minutes.
j'ai ajouté un message par l'instruction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.StatusBar ="message d'attente"
Pour une meilleure interface, je désire afficher un userform comportant mon message d'attente qui se fermera à la fin du temps nécessaire à la synchronisation
j'ai essayé cela mais ça reste bloqué tant que l'userform n'est pas fermé
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
Public Sub SYNCHRO(k As Integer)
 
USF.show
doEvents
    Sheets("Config").Cells(5, 2).Value = k
    Sheets("c70").Cells(1, 1).Value = k
    Sheets("MDF").Cells(1, 1).Value = k
    Sheets("LDSP").Cells(1, 1).Value = k
    Sheets("DVER").Cells(1, 1).Value = k
    Form26 k
    Form20 k
    Form70
    FormMPZ Sheets("MDF"), Sheets("Config")
    FormMPZ Sheets("LDSP"), Sheets("Config")
    FormMPZ Sheets("DVER"), Sheets("Config")
    Form0102 k
USF.hide
End Sub
S'il y a une variante à ma question?
merci