popup temporaire (MsgBox?) dans un select case

Bonjour,
Dans la FAQ Excel, j'ai trouvé Comment afficher un MsgBox temporaire ?, mais cela ne fonctionne pas, je suis obligé de cliquer quand même sur OK.
Alors j'ai trouvé

Code:

---

1 2	CreateObject("WScript.Shell").Run _ "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Texte"",1,""Titre""))"

---

qui fonctionne très bien.
Mais j'ai voulu l'insérer dans un Select Case

Code:

---

1 2	Select Case CreateObject("WScript.Shell").Run _ "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Fin"",1,""SARA-MàJ""))"

---

et j'obtiens le message Attendu : Fin d'instruction.
Est-ce quelqu'un peut me dire ce qui ne va pas.
D'avance merci

re
bonjour mouftie
quelle idée d'integrer un object externe dans un select case

au mieux tu n'a qu'une valeur boolean(true) qui t'est retourné si la creation du msgbox externe c'est bien passé

qu'attends tu de ce msgbox externe dans le case :son retour????
si c'est cela alors non pas possible

Ma question est idiote, désolée
à quoi sert une select case, si on ne laisse pas le choix de la réponse...

Ma réponse est partie avant que j'ai vu la réponse de Patrick... Merci de ta réponse

Bonjour,

Citation:

---

Comment afficher un MsgBox temporaire ?, mais cela ne fonctionne pas, je suis obligé de cliquer quand même sur OK.

---

Un MsgBox s'affiche et attend toujours que l'utilisateur clique sur un bouton (au minimum un OK)

Citation:

---

Un MsgBox s'affiche et attend toujours que l'utilisateur clique sur un bouton (au minimum un OK)

---

a bon celui de vba seulement car le .popup de wscript.shell a le tempo lancé avec mshta.exe

normalement il a le tempo aussi avec seulement

Code:

---

createobject("wsript.shell").popup"texte",tempo,"titre"

---

mais je ne sais pas pourquoi ca ne fonctionne pas dans vba peut etre une restrictionc'est pour ca que la methode avec mshta.exe existe c'est mashta.exe qui lance le msgbox

mais dans tout les cas oui le msgbox externe a bien un tempo

Bonjour,

sujet déjà traité ici ?

https://www.developpez.net/forums/d1...-non-bloquant/

salut joe
j'y ai rajouter ma version
en plus le fichier vbs s'autodetruit tout seul
https://www.developpez.net/forums/d1...t/#post9862844

Bonjour
Je ne m'empoisonnerais personnellement pas la vie juste pour afficher un message pendant quelques secondes.
J'utiliserais simplement un label (par exemple) que j'afficherais le temps nécessaire.
Exemple ici sur une feuille de calcul.

On y insère un label Label1 -->> ses propriétés -->> Visible = False et Autosize = true
Et quand je veux l'afficher 10 secondes --->>

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

With Label1 .BackColor = vbRed .ForeColor = vbWhite .Caption = "coucou" & vbCrLf & "je vais disparaître dans 10 secondes" .Left = ActiveWindow.Width / 2 .Top = ActiveWindow.Height / 2 .Font.Size = 20 .Visible = True Application.Wait (Now + TimeValue("0:00:10")) .Visible = False End With

---

@jacques
oui mais ton systeme est bloquant si ca c'est pas empoisonnant :mouarf:
en plus 10 secondes tu fait quoi pendant ce temps tu regarde le plafond :ptdr:

au moins pour te débloquer fait moi la gestion d'atte,nte dans un do/loop sur timer + doevents

Code:

---

t=timer:do:doevents:loop while timer-t<10

---

a la place de

Code:

---

Application.Wait (Now + TimeValue("0:00:10"))

---

entre nous une alerte temporaire sous quelque forme que se soit et bloquante, serait bien plus contraignante q'un simple msgbox obligeant une reponse

j'dis ca moi j'dis rien hein je raisonne comme un utilisateur ;)

Bonjour,
Je n'utiliserais personnellement jamais ce doevents en boucle (j'aime trop mon processeur), même pour 10 secondes seulement.
1) je laisserais lire (j'imposerais ce temps)
2) mais si tu veux vraiment donner aux utilisateurs impulsifs la possibilité de "se sauver" (d'aucuns ne liront même plus, je le sais ...) , alors voilà
Dans un module standard :

Code:

---

1 2 3 4

Public L As msforms.Label Public Sub titi() L.Visible = False End Sub

---

et pour l'affichage (sur la feuille) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Set L = Label1 With L .BackColor = vbRed .ForeColor = vbWhite .Caption = "coucou" & vbCrLf & "je vais disparaître dans 10 secondes ou si vous me cliquez" .Left = ActiveWindow.Width / 2 .Top = ActiveWindow.Height / 2 .Font.Size = 20 .Visible = True Application.OnTime Now + TimeValue("0:00:10"), "titi" End With End Sub   Private Sub Label1_Click() Label1.Visible = False End Sub

---

Mais en aucun cas ce Doevents ...

re
ca n'a rien a voir avec une impulsivité ou autre
une alerte temporaire ne doit pas etre contraignante sinon l'utilité meme de "temporaire" est mis en cause
une alerte temporaire doit se resilier toute seule on est bien d'accords
si on est obligé d'attendre autant faire un msgbox et demander une reponse ma fois c'est plus simple

des fois tu m'etonnes dans tes raisonnements

apres je dis pas que je te comprends pas en parlant de l'impulsivité des utilisateur ca je dis pas

mais dans ce cas la c'est le besoins dans toute cette discution qui est remis en cause

il faut etre logique et pas que dans les parties qui interessent

en tout cas chez moi non un msgbox tempo ne dois pas etre bloquant

Oui, bon ...
Ma logique personnelle essentielle, Patrick (je te l'ai déjà dit plus d'une fois) est de ne pas me rendre dépendant d'un VBS éventuellement inhibé délibérément sur certaines machines, dont la mienne, hein ...
Pour le reste (les clics intempestifs) : j'ai déjà donné et sais à quoi ils finissent par aboutir (on en a marre et on clique sans lire).