Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Afficher une MsgBox temporaire en VBA

Afficher une MsgBox temporaire en VBA

10 réponses
Avatar
Jean-Luc GARNIER
Bonjour !

Je cherche =E0 afficher une boite de type MsgBox ou autre=20
durant l'initialisation d'une UserForm (un peu longue),=20
cette boite devant se fermer soit par commande (type=20
MsgBox.Close) soit =E0 la fin de la m=E9thode d'initialisation=20
de la Form.

Quelqu'un a-t-il d=E9j=E0 r=E9alis=E9 ceci ?

Merci d'avance pour toute aide,

Jean-Luc
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
John Fuss
Bah... une autre UserForm....

John

"Jean-Luc GARNIER" a écrit dans le
message de news:687001c42eac$6ebbcab0$
Bonjour !

Je cherche à afficher une boite de type MsgBox ou autre
durant l'initialisation d'une UserForm (un peu longue),
cette boite devant se fermer soit par commande (type
MsgBox.Close) soit à la fin de la méthode d'initialisation
de la Form.

Quelqu'un a-t-il déjà réalisé ceci ?

Merci d'avance pour toute aide,

Jean-Luc
Avatar
HD
Bah... une autre UserForm....


Ou sinon personnelement je met en titre du UserForm (UserForm.Caption)
principal "Veuillez attendre svp" puis je rétabli le bon titre à la fin de
la macro ou si c'est une macro qui parcours des cellules je mets un compteur
dans la barre d'état:

OldSB = application.StatusBar
Ma boucle
Mon traitemt
application.StatusBar = i & " / " & iMax
Fin ma boucle
application.StatusBar = OldSB

ça fait patienter l'utilisateur et il sait où en est la macro... ça évite
les Ctrl+Alt+Suppr des plus nerveux... ;)
--
@+
HD

Avatar
Papou
Bonjour Jean-Luc
Va voir ici
http://www.excelabo.net/xl/messages.php
Cordialement
Pascal

"Jean-Luc GARNIER" a écrit dans le
message de news: 687001c42eac$6ebbcab0$
Bonjour !

Je cherche à afficher une boite de type MsgBox ou autre
durant l'initialisation d'une UserForm (un peu longue),
cette boite devant se fermer soit par commande (type
MsgBox.Close) soit à la fin de la méthode d'initialisation
de la Form.

Quelqu'un a-t-il déjà réalisé ceci ?

Merci d'avance pour toute aide,

Jean-Luc
Avatar
Papou
Sinon voici une méthode qui pourrait peut être te convenir :
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.Popup "Ce message se fermera dans 10 secondes", 10

Cordialement
Pascal

"Papou" a écrit dans le message de news:
#
Bonjour Jean-Luc
Va voir ici
http://www.excelabo.net/xl/messages.php
Cordialement
Pascal

"Jean-Luc GARNIER" a écrit dans le
message de news: 687001c42eac$6ebbcab0$
Bonjour !

Je cherche à afficher une boite de type MsgBox ou autre
durant l'initialisation d'une UserForm (un peu longue),
cette boite devant se fermer soit par commande (type
MsgBox.Close) soit à la fin de la méthode d'initialisation
de la Form.

Quelqu'un a-t-il déjà réalisé ceci ?

Merci d'avance pour toute aide,

Jean-Luc




Avatar
Jean-Luc GARNIER
Merci à tous !

Je m'en vais expérimenter tout ça.. Ici, il pleut,
alors.. :-)

Jean-Luc
-----Message d'origine-----
Bah... une autre UserForm....


Ou sinon personnelement je met en titre du UserForm
(UserForm.Caption)

principal "Veuillez attendre svp" puis je rétabli le bon
titre à la fin de

la macro ou si c'est une macro qui parcours des cellules
je mets un compteur

dans la barre d'état:

OldSB = application.StatusBar
Ma boucle
Mon traitemt
application.StatusBar = i & " / " & iMax
Fin ma boucle
application.StatusBar = OldSB

ça fait patienter l'utilisateur et il sait où en est la
macro... ça évite

les Ctrl+Alt+Suppr des plus nerveux... ;)
--
@+
HD


.




Avatar
HD
Set wsh = CreateObject("WScript.Shell")
wsh.Popup "Ce message se fermera dans 10 secondes", 10


ça ne fonctionne pas...
--
@+
HD

Avatar
Papou
ben chez moi ça fonctionne sans problème EXCEL 2000 SR1
(avec la déclaration qui va bien : Dim wsh As Object)
Cordialement
Pascal

"HD" a écrit dans le message de news:
#
Set wsh = CreateObject("WScript.Shell")
wsh.Popup "Ce message se fermera dans 10 secondes", 10


ça ne fonctionne pas...
--
@+
HD





Avatar
JièL Goubert
Bonjoir(c) Jean-Luc GARNIER

Le 30/04/2004 14:52 vous nous disiez ceci :
Merci à tous !

Je m'en vais expérimenter tout ça.. Ici, il pleut,
alors.. :-)


Même pas vrai, y'a du soleil maintenant ;-)))

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Avatar
Jean-Luc GARNIER
Non, pour nous, ca, c'est de la pluie ! ;-)

Tu fais erreur: c'est le phare de Cassis que tu dois voir !

Les JL parlent aux JL !

-----Message d'origine-----
Bonjoir(c) Jean-Luc GARNIER

Le 30/04/2004 14:52 vous nous disiez ceci :
Merci à tous !

Je m'en vais expérimenter tout ça.. Ici, il pleut,
alors.. :-)


Même pas vrai, y'a du soleil maintenant ;-)))

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez
Micro Application

http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_t
rucs_de_pros.htm

.




Avatar
HD
ben chez moi ça fonctionne sans problème
EXCEL 2000 SR1
Moi j'ai Excel 97...


Effectivement ça fonctionne... Mais la donnée en fin de ligne (wsh.Popup
Message, 10) ne fonctionne que jusque 9... si je met 10 ça ne se ferme
pas... Mais bon 9 secondes ça suffit largement.
--
@+
HD