Discussion :

[dodo69]

Bonjour
J'aimerai savoir s'il est possible d'afficher une MSGBOX du style patientez traitement en cours et ce sans interférer le programme, une sorte de message d'information...

Je sais pas si j'ai été clair dans ma demande

Merci d'avance

[casefayere]

re,
je pense qu'il faut passer par un USF non modal avec un label avec la texte "veuillez tricoter en attendant la fin", pour ceux qui aiment le tricot (je plaisante, bien sur), je ne pense pas qu'avec une MSGBOX, ça soit possible mais je peux me tromper

[dodo69]

Merci casefayere,

C'est malheureusement ce que je pensais :s

Bon ba je m'en retourne a un USF alors
Merci a bientot

[Philippe Tulliez]

Bonjour,
Voir ici http://support.microsoft.com/kb/462855/fr

[casefayere]

Bonjour Philippe,
je pensais que ma solution était plus simple dans la mesure où l'USF est non modal sans oublier le "repaint"

Code :

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

1
2
3
4
5
6
sub gnagna()
UserForm1.Show
UserForm1.Repaint
...le code
unload userform1
end sub

[dodo69]

Bonjour,

je n'arrive pas à comprendre comment tu veux procéder casefayere.

En ce qui concerne la solution : http://support.microsoft.com/kb/462855/fr
je n'arrive pas à le faire marcher :s
il bug dès le début (la ligne en orange):

Code :

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

1
2
3
4
5
6

Sub DébutMacro()
Application.EnableCancelKey = xlDisabled
DialogSheets("Dialog1").Show
End Sub

Merci de me venir en aide une nouvelle fois ... :s

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub DétecteAffichageBoite()
Application.SendKeys "~"
MsgBox "Message fantôme"
 
Call ma_procedure
 
Application.Wait Now() + #12:00:05 AM#
Application.DialogSheets("Dialog1").Hide
Application.EnableCancelKey = xlInterrupt
End Sub