Discussion :

[ddanie]

Bonsoir à tous,

J'ai un UserForm1, avec 1 Bouton qui lance une macro qui s'exécute pendant une vingtaine de secondes.
Pendant ce temps je voudrais un MsgBox sans bouton qui s'affiche, et qui me dit : "Patientez..." et ensuite qui se ferme automatiquement quand la macro est terminée.

Merci pour votre aide

[Marc-L]

Bonjour,

un MsgBox suspend l'exécution du programme, à oublier donc !

Une possibilité via un UserForm non modal affichant un simple message (consulter l'aide de sa méthode Show) …
Encore plus simple est d'afficher un message dans une cellule de la feuille active !

[Invité]

Bonsoir,
http://www.developpez.net/forums/d14...e-arret-macro/

[ddanie]

Bonjour,

un MsgBox suspend l'exécution du programme, à oublier donc !


Une possibilité via un UserForm non modal affichant un simple message (consulter l'aide de sa méthode Show) …
Encore plus simple est d'afficher un message dans une cellule de la feuille active !

Merci Marc
J'ai utilisé un UserForm2 avec un Label "Patientez..."
l'UserForm2 s'affiche bien pendant le temps d'exécution de la macro et se ferme automatiquement en fin d'exécution.
- Problème : c'est que le Label n'affiche rien ou est invisible.

Je vais continuer à chercher la solution mais vu l'heure, ce ne sera que demain...

[Marc-L]

Après UserForm2.Show insérer la fonction DoEvents dans le code …

[vinc_bilb]

Bonsoir,

Quid de la barre de status?
Si ça peut aider, je classe/transferts qutodiennement des dizaines de GO de data par un wbk + VBA, et j'ai qquchose du style (gauge de progrès dans la status bar)

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
36
37
38
39
40
 
If FilesCnt > 50 Then
 
        Msganswer = MsgBox(FilesCnt & " files to transfer from " & FSOLFoldC.Count & " directories" & vbCrLf & "It could be long" & vbCrLf & _
            "Please, check the excel status bar (Cancel to stop the transfer)", vbInformation + vbOKCancel, Subname)
        If Msganswer = vbCancel Then Exit Sub
 
    End If
 
    ' Status bar
                    If Format(FileTrsCnt / FileCnt, "0%") <> TrsfInd Then
                        TrsfInd = (FileTrsCnt / FileCnt) * 100
 
                        If TrsfInd >= TrsfIndOld + 1 Then
 
                            TrsfIndOld = TrsfInd
                            Call UpdateStatusBar(Funcname & " " & TrsfMode & " - Progress: " & FileTrsCnt & " of " & FileCnt & ": " & Format(TrsfInd / 100, "0%") & " " & String(Int(TrsfInd), "|"), True)
 
                        End If
 
                    End If
(....)
Sub UpdateStatusBar(StBarMsg As String, Optional KeepDispl As Boolean = False)
 
Dim StBarOld As Boolean
Dim StBar As Boolean
 
 
StBarOld = Application.DisplayStatusBar
 
Application.DisplayStatusBar = True
Application.StatusBar = StBarMsg
DoEvents
 
If KeepDispl = False Then
    Application.StatusBar = False
    Application.DisplayStatusBar = StBarOld
End If
 
End Sub

Bonne soirée

[Igloobel]

Bonsoir a tous

Il y a beaucoup plus simple !

Moi, pour ce genre de problème, j'utilise la barre d'état et on peut voir l'état d'avancement du traitement !

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
Sub Attente_Msg()
    'Sauvegarder la barre d'état en place
    Barre_Actuelle = Application.DisplayStatusBar
    Application.DisplayStatusBar = True
 
    'affichage de la barre avec le message
    Application.StatusBar = "Macro en cours d’exécution, veuillez patienter"
 
    'Traitement à faire
    For i = 1 To 100000
        'message de l'état d'avancement du traitement
        Application.StatusBar = "Macro en cours d’exécution, Traitement en cours " & i & "/100000"
    Next
 
    'message de fin
    Application.StatusBar = "Traitement fini, Merci de votre patience"
 
    '3 secondes d'attente
    Application.Wait Now + TimeValue("00:00:03")
 
    'restauration de l'état de départ
    Application.StatusBar = False
    Application.DisplayStatusBar = Barre_Actuelle
 
End Sub

Tester moi ça et dites moi ce que vous en pensez !!


PS : Je vois que VincBilb a eu la même ideé que moi mais en plus évoluée

[vinc_bilb]

PS : Je vois que VincBilb a eu la même ideé que moi mais en plus évoluée

.... hhhu évolué? J'en ai pas mal bavé pour faire une gauge 0-100% (pas trop difficile) mais qui ne ralentisse pas trop le traitement ....
Bonne soirée

[kiki29]

Salut, et un de plus .... ici

[ddanie]

Merci à Marc-L et à Igloobel

Vos deux solutions DIFFERENTES fonctionnent très bien, j'ai une préférence pour la solution de Marc, car plus conviviale avec l'UserForm,
L'affichage de Marc dans la barre d'état est très bien aussi..., j'ai remplacé la boucle i par la macro à exécuter.

Merci et bonne journée