AFFICHAGE temporaire d'une MsgBox

[gds35]

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]

Re : AFFICHAGE temporaire d'une MsgBox

Hello,

Peut-être comme ceci..

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

Cdt, Hulk.

 

[Roland_M]

Re : AFFICHAGE temporaire d'une MsgBox

Bien le bonjour à tous,

ci-joint une routine qui devrait te convenir !

 

[gds35]

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]

Re : AFFICHAGE temporaire d'une MsgBox

Hello,en e

Peut-être comme ceci..

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]

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]

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]

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

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]

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]

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

 

[patricktoulon]

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]

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

Fonctionne sur Office 365

Spoiler: devrait aussi faire l'affaire sur 2013

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]

Bonjour,

@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]

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

 

[Staple1600]

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