Discussion :

[mercatog]

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

[Minick]

Salut,

Essai ceci :

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
Public Sub SYNCHRO(k As Integer)
 
USF.show 0 ' on rend la form non modal ce qui veut dire qu'on garde la main pendant son affichage pour faire autre chose
    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
Unload USF
End Sub

++
Minick

[LeForestier]

Bonjour,
A-tu essayé cet exemple
A+
Edit : Correction.. je dormais encore
Bonjour Leti

[laetitia]

bonjour mercatog Minick l'ami Louis le forum
une autre possibilitee tu mets ton code dans l userform

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
Private Sub UserForm_Initialize()
Repaint
 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
Unload Me
End Sub

Code :

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

1
2
3
Sub Macro1()
userform1.Show
End Sub

[mercatog]

Merci Laetitia, Le Forestier et Minick,
Effectivement, en mode modal ça passe
sauf que l'USF apparait sans le message souhaité (USF blanc quoi!)
dans mon USF j'ai un label où j'ai écris mon message d'attente!
Merci encore

[LeForestier]

Beh.. le code que Laetitia te montre doit être mis dans le UF où tu a ton label avec le message d'attente !! et pas dans un autre.
Rectification, pas mettre le code dans Initialize mais dans Activate.
A+