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

**Menhir** · 10/11/2015, 11h16

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.

**Marc-L** · 10/11/2015, 11h31

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

**Menhir** · 10/11/2015, 12h17

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.

**Theze** · 10/11/2015, 12h45

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 :

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
 
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