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