Laisser une Msgbox affichée pendant le déroulement de la macro

**arnold95** · 14/12/2007, 14h29

Bonjour, j'aurai souhaité mettre en place une msgbox me disant "réinitialisation des données en cours" et qu'une fois la macro terminée j'ai une msg box qui me dise "traitement terminé". Pour l'instant j'ai:

Code :

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

MsgBox "Réinitialisation des feuilles en cours", vbInformation

et

Code :

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

MsgBox "Traitement terminé", vbInformation

Le problème c'est qu'il faut que l'utilisateur clique sur ok, pour lancer la macro j'aurai souhaité savoir si il y avait une possibilité que la msgbox soit affichée tout au long du processus et que la seconde msgbox arrive à la fin et que là l'utilisateur cklqiue ok.

Merci beaucoup et bonne journée.

**ouskel'n'or** · 14/12/2007, 14h33

Jète un oeil dans contribuez VBA-Excel, il y a un exemple pour créer un message en utilisant un userform.
http://www.developpez.net/forums/sho...d.php?t=452868

**arnold95** · 14/12/2007, 15h24

En fait j'ai fait une userbox que j'ai loadé puis uploadé a la fin de la macro, par contre çà augmente le temps de réalisation...Y a t-il une autre manière de faire?

**fred65200** · 18/12/2007, 00h42

bonsoir,

tu peux utiliser la barre d'état pour afficher un message

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
Dim EtatStatusBar As Boolean
'état de la barre d'état
EtatStatusBar = Application.DisplayStatusBar
'affichage de la barre d'état
Application.DisplayStatusBar = True
'affichage du message
Application.StatusBar = "Réinitialisation des feuilles en cours..."
'----------------------
' ton code
'----------------------
'et à la fin
'réinitialisation de la barre
Application.StatusBar = False
'remise à l'état d'origine
Application.DisplayStatusBar = EtatStatusBar

cordialement

kika18 · 19/12/2007, 16h58

Une question par rapport a ces suggestions: elles ne permettent que d'afficher un message a l'ecran pendant l'execution de la macro.
Est-il possible de generaliser ca en ayant un objet de type msgbox qui permette d'interrompre l'execution de la macro?

Merci.

kika18

**ouskel'n'or** · 19/12/2007, 17h25

Regarde ici, je donne un exemple de message à afficher pendant le déroulement d'une macro. http://www.developpez.net/forums/sho...d.php?t=461247

Dans l'userform :
Pour le message, ajoutes un msgbox dans l'événement UserForm_QueryClose

Code :

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

1
2
3
4
5
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Fin = True
    Msgbox "C'est fini !"
    If CloseMode <> 1 Then Cancel = False
End Sub

Tu remplaces la boucle sur les labels par le nom de ta macro.
Pour ça, tu supprimes les labels 2 et 3 et tu remplaces tout ça

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
Private Sub UserForm_Activate()
Dim msg, msg2 As String
    Label1.Caption = vbCr & " Minute papillon, je bosse !" 'Ton message
    DoEvents
    
'*************A remplacer par l'appel à la macro *****************
    msg = " Là, je simule le travail de la macro "
    msg2 = " Un clic sur l'userform m'arrête "
    Do
        msg = Right(msg, Len(msg) - 1) & Left(msg, 1)
        msg2 = Right(msg2, 1) & Left(msg2, Len(msg2) - 1)
        LaMacro msg, msg2
        DoEvents
    Loop While Not Fin
'*****************************************************************
End Sub

Sub LaMacro(msg, msg2)
Dim i
    Me.Label2 = msg
    Me.Label3 = msg2
    For i = 1 To 4500
        DoEvents
    Next
End Sub

par ça

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Activate()
Dim msg, msg2 As String
    Label1.Caption = vbCr & " Minute papillon, je bosse !"
    DoEvents
    Call TaMacro
End sub

Dans un module standard où se trouve déjà ta macro, pour appeler l'userform tu mets

Code :

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

1
2
3
4
Sub LancerLeMessageEtLaMacro()
    Load MessageBox
    MessageBox.show
End sub

Et au lieu de lancer ta macro directement, tu exécutes "LancerLeMessageEtLaMacro"

Pour te former, les cours et tutoriels Excel : https://excel.developpez.com/cours/

Amuse-toi bien