AFFICHAGE temporaire d'une MsgBox

gds35 · 6 Décembre 2009

Mes AMIS du forum bonjour , bon Dimanche ,

J'ai dans un USF un private sub contenant des instructions qui charge le contenu d'une combobox a partir de la premiere lettre du nom , et a un moment donné je charge une MSGBOX demandant le choix dans la liste. Pour valider je suis obligé de cliquer sur ok . Comment faire pour ne laisser apparaitre la msgboxbox pendant 5 seconde sans appuyer sur OK et afficher le contenu des items de la combobox ????? voici le p'tit bout de code
'================================================='
' CHARGEMENT DES ITEMS EN FONCTION DU CHOIX DU CC '
'================================================='
'
If Len(ChoixModifCC) = 1 Then
Message = MsgBox("CHOISIR SVP LE CC A MODIFIER", vbCritical + vbYes, "MODIF CC")
MODIFBOXNOMCC = ""
MODIFBOXNOMCC.SetFocus
'
' SI LE CHOIX EST FAIT
'
Else
MODIFBOXPRENOMCC = Range("B" & LMCC).Value
MODIFBOXIDCC1 = Range("C" & LMCC).Value
MODIFBOXIDCC2 = Range("D" & LMCC).Value
MODIFRECC = Range("H" & LMCC).Value
OLDRECC = MODIFRECC.Value
MODIFBOXUDRECC1 = Range("E" & LMCC).Value
MODIFNUMRERUCC = Range("F" & LMCC).Value
MODIFUDRECC = Range("G" & LMCC).Value
MODIFRURECC = Range("K" & LMCC).Value
MODIFBOXUDRUCC = Range("I" & LMCC).Value
MODIFNUMRURECC = Range("J" & LMCC).Value
'

Hulk · 6 Décembre 2009

Re : AFFICHAGE temporaire d'une MsgBox

Hello,

Peut-être comme ceci..

Code:

CreateObject("Wscript.shell").Popup "CHOISIR SVP LE CC A MODIFIER", 5, "MODIF CC", vbCritical

Cdt, Hulk.

Roland_M · 7 Décembre 2009

Re : AFFICHAGE temporaire d'une MsgBox

Bien le bonjour à tous,

ci-joint une routine qui devrait te convenir !

gds35 · 10 Décembre 2009

Re : AFFICHAGE temporaire d'une MsgBox

HULK et ROLAND Bonsoir ainsi que le forum ,
Desolé de la réponse tardive du en partie à mon activité Pro.
Je teste vous solution ce WE et vous tient au courant en cas d'echec.
Cordialement à Tous. GDS35

AIXELS · 29 Octobre 2022

Hulk à dit:
Re : AFFICHAGE temporaire d'une MsgBox

Hello,en e

Peut-être comme ceci..

Code:

CreateObject("Wscript.shell").Popup "CHOISIR SVP LE CC A MODIFIER", 5, "MODIF CC", vbCritical

Cdt, Hulk.

Bonjour @Hulk et tous les Amis du Forum.
Je ne sais pas si tu peux me répondre car la discussion
date de Décembre 2009, presque 13 ans.
https://excel-downloads.com/threads/affichage-temporaire-dune-msgbox.132365/#post-777544

Elle concerne l'affichage d'un msgBox durant 5 secondes pour l'exemple.
La première fois que je l'ai lancée, cela a bien fonctionné.
Par la suite, il faut appuyer sur OK pour fermer la boîte.
C'est dommage car une seule ligne suffit par rapport à
toutes les solutions que j'ai vues.
Merci pour ton aide.
Bien cordialement.

AIXELS · 29 Octobre 2022

Re Bonjour.
En fouillant un peu plus, j'ai trouvé la réponse au problème de la non répétitivité
de la fermeture du MsgBox en lisant la remarque de @Best1 :

J'avais fait la même remarque que @girolle74. En fait le temps est comptabilisé lorsqu'il n'y a pas d'action. Si vous bouger la souris le popup reste affiché. Testez donc sans toucher la souris pendant 3 secondes.

Quelqu'un a-t-il la réponse ? VBA a sûrement évolué en 9 ans.
Merci pour votre aide.
Bien cordialement.

Eric C · 29 Octobre 2022

Bonjour le forum, le fil "déterré"
Bonjour AIXELS

Pour ma part, cela fonctionne (XL2010) sans bouger la souris. Tu peux aller voir ICI pour modifier le code.

Bonne soirée
@+ Eric c

AIXELS · 29 Octobre 2022

Bonsoir @Eric C
Merci pour ton retour.
Ça fonctionne mais où dois-je le code mettre :

VB:

Application.Wait Now + TimeValue ( "00:00:03" )

J'ai essayé de l'ajouter, il me crée 2 Msgbox ???
Merci pour ton aide.
Bien cordialement.

Eric C · 29 Octobre 2022

Re le fil

@AIXELS - J'ai remplacé ton code par un des miens car il faisait planter mon XL. Je t'ai mis un exemple pour te servir du MsgBox.
@+ Eric c

AIXELS · 29 Octobre 2022

Re @Eric C
Merci pour ton retour et ton aide.
Code court pas mais efficace.
Tout marche bien.
Cordialement.

patricktoulon · 29 Octobre 2022

le problème c'est que ça ne fonctionne pas sur toute les config
2007 et office 2013 chez moi c'est walouh!!!
le message ne se ferme pas tout seul

Staple1600 · 29 Octobre 2022

@patricktoulon
Le problème c'est qu'il faut toujours lire attentivement tous les messages d'une discussion

Fonctionne sur Office 365

VB:

Sub Bus()
CreateObject("WScript.Shell").Run "mshta.exe vbscript:close(CreateObject(""WScript.Shell"").Popup(""Not Walouh, non?"",3,""Titre du tit message""))"
End Sub

TooFatBoy · 29 Octobre 2022

Bonjour,

Staple1600 à dit:
@patricktoulon
Le problème c'est qu'il faut toujours lire attentivement tous les messages d'une discussion

Qu'y avait-il à lire qui a été loupé ???

patricktoulon · 29 Octobre 2022

oui avec le HTA ca fonctionne mais pas par wscriptt.shell

Staple1600 · 29 Octobre 2022

Bonsoir @TooFatBoy

Qu' avait-il à lire qui a été loupé ???

Le lien du message#7 (fourni par Eric_C)
dans lequel se trouvait le bout de code que je cite dans le message#12

@patricktoulon
Peut importe le flacon, pourvu qu'on ait l'ivresse
Ici un message temporaire

AFFICHAGE temporaire d'une MsgBox

gds35

XLDnaute Impliqué

Hulk

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

Pièces jointes

gds35

XLDnaute Impliqué

AIXELS

XLDnaute Occasionnel

Pièces jointes

AIXELS

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

Pièces jointes

Eric C

XLDnaute Barbatruc

Pièces jointes

AIXELS

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires