OVH Cloud OVH Cloud

fenetre veuillez patienter

4 réponses
Avatar
mormoz
re Bonjour à tous,

Une dernière si vous le voulez bien :
Pendant que ma routine mouline je souhaite afficher un message pour faire
patienter.
Si j'utilise MsgBox, cela gèle l'exécution jusqu'à ce qu'il y ait un clic
sur "ok"
Y a t-il une solution ?

Merci beaucoup pour votre aide
Philippe

4 réponses

Avatar
Dédé
Salut Mormoz !

Peut-être une solution à l'adresse suivante :
http://www.excelabo.net/xl/tempo.php#barreprogression

Dédé

"mormoz" a écrit dans le message de
news:41b20672$0$16365$
re Bonjour à tous,

Une dernière si vous le voulez bien :
Pendant que ma routine mouline je souhaite afficher un message pour faire
patienter.
Si j'utilise MsgBox, cela gèle l'exécution jusqu'à ce qu'il y ait un clic
sur "ok"
Y a t-il une solution ?

Merci beaucoup pour votre aide
Philippe




Avatar
michdenis
Bonjour Philippe,

Utilise un formulaire :

Un contrôle Label dans lequel tu insères ton message et que tu formate à ton goût !


Au lieu de lancer ta procédure, tu affiches le formulaire qui lui lancera la procédure.

Et pour lancer ton formulaire :

Userform1.Show


et dans le module du formulaire tu copie ceci
'------------------------
Private Sub UserForm_Activate()

Me.Repaint
DoEvents
'Nom de la macro à lancer
Maprocédure
Me.hide
unload me

End Sub
'------------------------


Salutations!



"mormoz" a écrit dans le message de news: 41b20672$0$16365$
re Bonjour à tous,

Une dernière si vous le voulez bien :
Pendant que ma routine mouline je souhaite afficher un message pour faire
patienter.
Si j'utilise MsgBox, cela gèle l'exécution jusqu'à ce qu'il y ait un clic
sur "ok"
Y a t-il une solution ?

Merci beaucoup pour votre aide
Philippe
Avatar
mormoz
Merci beaucoup.

Cela marche super

Philippe


"michdenis" a écrit dans le message de news:

Bonjour Philippe,

Utilise un formulaire :

Un contrôle Label dans lequel tu insères ton message et que tu formate à
ton goût !



Au lieu de lancer ta procédure, tu affiches le formulaire qui lui lancera
la procédure.


Et pour lancer ton formulaire :

Userform1.Show


et dans le module du formulaire tu copie ceci
'------------------------
Private Sub UserForm_Activate()

Me.Repaint
DoEvents
'Nom de la macro à lancer
Maprocédure
Me.hide
unload me

End Sub
'------------------------


Salutations!



"mormoz" a écrit dans le message de news:
41b20672$0$16365$

re Bonjour à tous,

Une dernière si vous le voulez bien :
Pendant que ma routine mouline je souhaite afficher un message pour faire
patienter.
Si j'utilise MsgBox, cela gèle l'exécution jusqu'à ce qu'il y ait un clic
sur "ok"
Y a t-il une solution ?

Merci beaucoup pour votre aide
Philippe





Avatar
mormoz
Merci Dédé
Je vais y aller faire un tour et pense que j'y glanerai plein d'info ...
Philippe

"Dédé" a écrit dans le message de news:

Salut Mormoz !

Peut-être une solution à l'adresse suivante :
http://www.excelabo.net/xl/tempo.php#barreprogression

Dédé

"mormoz" a écrit dans le message de
news:41b20672$0$16365$
re Bonjour à tous,

Une dernière si vous le voulez bien :
Pendant que ma routine mouline je souhaite afficher un message pour
faire


patienter.
Si j'utilise MsgBox, cela gèle l'exécution jusqu'à ce qu'il y ait un
clic


sur "ok"
Y a t-il une solution ?

Merci beaucoup pour votre aide
Philippe