Discussion :

[mouftie]

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 :

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

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 :

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

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

[patricktoulon]

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

[mouftie]

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

[Philippe Tulliez]

Bonjour,

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)

[patricktoulon]

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 :

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

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

[joe.levrai]

Bonjour,

sujet déjà traité ici ?

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

[patricktoulon]

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

[unparia]

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 :

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

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