Message restant affiché pendant l'exécution d'une macro

Version imprimable

10/11/2015, 11h16
Menhir

Message restant affiché pendant l'exécution d'une macro

Bonjour,

Je cherche à savoir s'il existe en VBA la possibilité de faire afficher une fenêtre de message comme celle d'une MsgBox (de préférence sans boutons) mais qui reste affichée pendant l'exécution d'une macro.
Ce serait pour indiquer à l'utilisateur "Procédure en cours, ne pas interrompre" ou quelque chose comme ça.

Parce que j'ai des macro qui peuvent prendre quelques dizaines de secondes à se dérouler, sans qu'il y ait quoi que ce soit qui bouge à l'écran. Donc, certains utilisateurs pensent que ça a planté et appuient sur tout ce qui leur passe sous le pointeur.
J'ai beau expliquer "Pas touche tant que le message Terminé n'est pas affiché", rien n'y fait.
Il faudrait qu'il y ait à l'écran quelque chose qui leur indique clairement que Excel est en train de travailler.

La seule astuce que j'ai trouvé est de créer un Workbook, d'y mettre un message et de le laisser au premier plan pendant l'exécution, mais ce n'est pas vraiment satisfaisant.

Merci d'avance.
10/11/2015, 11h31
Marc-L

Bonjour,

en dehors du message dans une cellule ou dans la barre d'état,
il y a l'UserForm en non modal (via sa propriété ShowModal à False).

L'autre possibilité est d'afficher un objet Shape préalablement caché …

______________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse
10/11/2015, 12h17
Menhir

Citation:

Envoyé par Marc-L

l'UserForm en non modal (via sa propriété ShowModal à False).

J'ai un peu été voir dans l'aide VBA et cet méthode semble être celle qui correspond le mieux à ce que je cherche.
Jusqu'à présent, je m'étais peu intéressé aux UserForm et je ne connaissais pas cette propriété.

Merci pour cette réponse.

Bonjour,

Tu pose une barre de progression sur une Form à laquelle tu supprime la croix de fermeture (voir code). Si tu n'as pas de barre de progression, tu peux en créer une avec deux Labels. A mettre dans le module de la Form :

Code:

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
 
Private Declare Function FindWindow _
                Lib "user32" _
                Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
 
Private Declare Function SetWindowLong _
                Lib "user32" _
                Alias "SetWindowLongA" ( _
                ByVal hWnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) As Long
 
Private Declare Function GetWindowLong _
                Lib "user32" _
                Alias "GetWindowLongA" ( _
                ByVal hWnd As Long, _
                ByVal nIndex As Long) As Long
 
 
Private Sub UserForm_Initialize()
 
    Dim ID As Long
 
    Me.Caption = "Procédure en cours, ne pas interrompre..."
 
    ID = FindWindow(vbNullString, Me.Caption)
    SetWindowLong ID, -16, GetWindowLong(ID, -16) And -524289
 
End Sub
 
'pour le test afin de fermer !
Private Sub UserForm_Click()
 
    Unload Me
 
End Sub

10/11/2015, 12h51
Menhir

Merci.
Je retient l'idée d'utiliser un champ string pour faire une barre de progression. Je n'y avais pas pensé.
10/11/2015, 12h55
Invité

Bonjour,
http://www.developpez.net/forums/d14...e/#post7898843
10/11/2015, 13h51
Menhir

Merci pour ce code. Je vais m'en inspirer. :)
10/11/2015, 17h30
illight
Bonjour,

Pour ma part, j'utilise effectivement un formulaire, que j'appelle au début de ma fonction, et que je décharge à la fin :
Code:

1 2 3 4 5 USFWait.Show 0 USFWait.Repaint ''''' procédure Unload USFWait
Par ailleurs, et même si c'est du Access, du peut te baser sur ceci :

http://arkham46.developpez.com/artic...s/formattente/

Qui est un formulaire avec une barre de progression.

Sinon, je crois aussi qu'il y a un composant Progressbar (ou un outil du formulaire), mais je ne l'ai jamais testé.
10/11/2015, 18h15
Menhir

Merci à tous.:plusser:
Avec tout ça je devrais arriver à faire ce que je souhaite. :)