MSG box

[mécano41]

Bonjour à tous,

J'ai deux questions :

- je ne trouve pas le moyen de positionner une msgbox directement là où je le souhaite (sans la faire glisser). Existe-t-il?

- existe-t-il un moyen d'afficher une msgbox comportant juste un message (pas de croix, pas de bouton...etc...ex. : "Veuillez patienter") l'apparition et la disparition étant faites par le VBA?

Merci d'avance

Cordialement

 

[Luki]

Re : MSG box

bonjour mecano,

tu peux jetter un oeil sur ce fil
https://www.excel-downloads.com/threads/reponse-automatique.80450/

Il s'agit de remplacer un msbox par un Userform qui permet de faire ce que tu veux.

Bonne journée

 

[mécano41]

Re : MSG box

Bonjour,

Merci beaucoup, Luki, je pense en effet que c'est la solution. Je vais essayer cela.

Cordialement

 

[mécano41]

Re : MSG box

J'ai essayé, mais pour la boîte qui doit comporter seulement le message "...Patientez..." j'ai un problème : à la demande "BoîteDeDialogue5.show" la boîte s'ouvre bien mais la routine qui est derrière ne démarre pas. Il faut que je clique sur la croix pour qu'elle commence à s'exécuter (la boîte reste bien ouverte).

Je voudrais que sur ordre, le message s'affiche, la routine se lance et que le message reste pendant toute la durée de la routine puis se ferme à la fin. C'est le lancement de la routine après apparition du message et sans action manuelle, que je n'arrive pas à faire.

Si quelqu'un a une idée...merci d'avance

Cordialement

 

[Luki]

Re : MSG box

Re, Mécano


si tu es sous xl 97, ça ne pourra pas marcher, sinon attention à ceci:

 BoîteDeDialogue5.show [COLOR=Red][B](0)[/B][/COLOR]

Pour passer en mode non modal qui permet de laisser un UForm ouvert tout en faisant autre chose.

Vois si c'est à le souci. sinon, passe ton fichier en Pj sans données confidentielles.

A+

 

[mécano41]

Re : MSG box

Merci Luky. Non, je suis en version 2002 - SP3. J'avais déjà essayé cela, suite à ton exemple. Cela fonctionne mais ma boîte est toute blanche! (il n'y a même pas la couleur beige du fond!)

Cordialement

 

[Luki]

Re : MSG box

Un p'tit bout d'fichier??? pour voir? 😉

 

[mécano41]

Re : MSG box

Voilà, il n'y a rien de confidentiel mais cela faisait 450 ko! J'ai élagué mais cela fonctionne comme l'original. Seul le temps était plus long.

Merci d'avance

 

[Luki]

Re : MSG box

re,
essaie ceci

Sub EnregistrementCycle()
Dim AngleEnreg As Long
Dim X As Long

Beep
BoîteDeDialogue5.Show (0)
[B][COLOR=Red]DoEvents[/COLOR][/B]

For AngleEnreg = 0 To 10000
    For X = 0 To 10000
    
    Next X
Next AngleEnreg
Beep
BoîteDeDialogue5.Hide

End Sub

Ca devrait rafraîchir le userform, pourquoi.... !? 😕

Astuce de _Thierry dans les progressbar avant que ça n'existe en standard!

 

[mécano41]

Re : MSG box

C'est tout bon!

Encore merci et bonne soirée