XL 2010 Résolu par Chris, Lone-Wolf et DoubleZéro : msgbox : affichage et temps de fermeture

[Usine à gaz]

Bonjour à toutes et à tous,

Tout d'abord, je vous souhaite une très belle année pleine de bonheur et de réussite pour vous et ceux que vous aimez.

En ce 1er janvier, je m'en remets déjà à vous LOL,

Ce n'est pas bloquant, mais j'aimerais distinguer mes affichages msgbox en deux catégories :
1 - affichage bloquant avec clic sur ok ou "oui ou non",
2 - affichage informatif sans le bouton ok avec fermeture automatique.

C'est le 2 qui que pose un petit problème
est-il possible ? :
- de réduire le temps (dans le fichier joint 1 seconde) à 0.5,
- qu'il n'y ait pas le OK dans le msgbox.

Malgré mes recherches et essais, je n'y suis pas arrivé.
Il semblerait, d'après mes visites sur le net, qu'il n'y aurait pas d'autre possibilité que de passer par un UserForm et ça, je ne sais pas faire.
Si on peut l'éviter, je préfèrerais mais sans autre solution, je prends LOL

Je joins un fichier test.
Avec mes remerciements,
Bonne journée à toutes et à tous,
Amicalement,
Lionel,

 

[Lone-wolf]

Bonjour Lionel

Arthour973 à dit: Est-il possible de supprimer le OK ?

OUI!! En retenant sa réspiration et en buvant un grand verre d'eau LOL!

 

[Chris24]

Bonjour
une petite recherche sur excel download
oui pour la fermeture automatique d'un MsgBox
non, à ma connaissance, pour le bouton OK.

Cdt

Edit: joint bon fichier

 

[Usine à gaz]

Bonjour Lone,
Merci de m'avoir répondu,
Je dois être encore sous l'emprise de la fête LOL.
J'avais cherché sur le forum et je viens de faire encore des recherches mais je n'ai ps trouvé de réponses à mes questions.
est-il possible ? :
- de réduire le temps (dans le fichier joint 1 seconde) à 0.5,
- qu'il n'y ait pas le OK dans le msgbox.

Je continue ......
Amicalement,
Lionel,

 

[Lone-wolf]

Bonjour Chris et bonne année

Chris, Lionel cherche aussi à ne pas afficher le bouton OK d'après ce qu'il dit.
Lionel, de cette façon là, je pense qu'il faut agir sur les propriétés du Shell en mettant le bouton Visible = False. Mais comment faire, mystère et boule de gomme.

 

[Usine à gaz]

Re Lone,
Bonjour Chris,
LOL, mon précédent message était destiné à Chris.

Effectivement Lone "mystère et boule de gomme"
Amicalement,
Lionel,

 

[Chris24]

Re

dans le bon fichier que j'ai mis en ligne tu peux modifier la durée d'affichage en modifiant la durée en millisecondes

pour le bouton OK pas possible sur MsgBox

Cdt

 

[Usine à gaz]

Lone,
Je n'avais pas vu celui-là : OUI!! En retenant sa respiration et en buvant un grand verre d'eau LOL!
J'ai pas encore réussi ça aussi LOL

 

[Usine à gaz]

Re

dans le bon fichier que j'ai mis en ligne tu peux modifier la durée d'affichage en modifiant la durée en millisecondes

pour le bouton OK pas possible sur MsgBox

Cdt

Re-Chris,
Merci de l'information.
je suppose qu'à la place de 1, je mets 0.500 ?
je vais voir ça.

 

[Lone-wolf]

Re Lionel

Avec un Userform personnalisé ce serait plus simple, mais comme tu veux pas...tampis!

 

[Usine à gaz]

SI, SI je veux LOL (même si j'aurais préféré sans je veux, je veux )

 

[Chris24]

non pas 0.500 mais 500

 

[Usine à gaz]

Re Chris,

Bien sûr, je suis loin d'être un ténor en VBA même si j'avance à mon rythme grâce à vous tous.
Mon code est le suivant :

CreateObject("Wscript.shell").Popup "Si le message disparait automatiquement en 1 seconde sans OK", 1, "t'as droit à l'apéro !!!"

Si je mets 500, c'est 500 secondes ?

 

[Lone-wolf]

Re

Lionel, Regarde si ça te convient.

 

[Chris24]

Le réglage du temps d'affichage inférieur à une seconde n'est possible que dans l'exemple test2.
un affichage aussi court n'est pas lisible mais c'est peut être ce que tu cherches

un nouvel exemple avec un formulaire.

Bonne journée

Il est temps que j'aille prendre l'apéro