DoEvents

4 réponses

Patrick Catarsi

30/12/2003 à 08:18

Bjr à tous et tous mes voeux

Je voudrais pendant que s'effectue une mise en forme qui dure une trentaine
de secondes, avoir un message du genre "Je bosse pour vous, alors
patience!".
Je sais que l'on doit utiliser "DoEvents", mais je n'arrive pas à savoir ou
dans le code, du fait que MsgBox met en attente.

D'avance merci
Patrick

4 réponses

John Fuss

30/12/2003 à 09:15

Je ne pense qu'avec msgbox on puisse le faire car msgbox est modal, utilise
plutot une UserForm avec ton message, voir une barre de progression que tu
affiche comme suit pour une UserForm nommée frm_msg

frm_msg.show vbModeless

voilà

John

"Patrick Catarsi" a écrit dans le message de
news:BC16E55B.418B%

Bjr à tous et tous mes voeux

Je voudrais pendant que s'effectue une mise en forme qui dure une
trentaine

de secondes, avoir un message du genre "Je bosse pour vous, alors
patience!".
Je sais que l'on doit utiliser "DoEvents", mais je n'arrive pas à savoir
ou

dans le code, du fait que MsgBox met en attente.

D'avance merci
Patrick

Damien Mermoz

30/12/2003 à 11:25

Salut,

tu peux aussi utiliser le Compagnon Office, il a une propriété modale que tu
peux mettre sur non.
regarde balloon dans l'aide VBE après avoir référencer office librairy.
C'est bien expliqué et ça devrait répondre à ton problème.

A +
Damien.
"Patrick Catarsi" a écrit dans le message de
news:BC16E55B.418B%

Bjr à tous et tous mes voeux

Je voudrais pendant que s'effectue une mise en forme qui dure une
trentaine

de secondes, avoir un message du genre "Je bosse pour vous, alors
patience!".
Je sais que l'on doit utiliser "DoEvents", mais je n'arrive pas à savoir
ou

dans le code, du fait que MsgBox met en attente.

D'avance merci
Patrick

Patrick Catarsi

30/12/2003 à 11:34

Le 30/12/03 9:15, dans bsrc23$o3r$, « John Fuss »
a écrit :

Je ne pense qu'avec msgbox on puisse le faire car msgbox est modal, utilise
plutot une UserForm avec ton message, voir une barre de progression que tu
affiche comme suit pour une UserForm nommée frm_msg

frm_msg.show vbModeless

voilà

John

"Patrick Catarsi" a écrit dans le message de
news:BC16E55B.418B%
Bjr à tous et tous mes voeux

Je voudrais pendant que s'effectue une mise en forme qui dure une
trentaine

de secondes, avoir un message du genre "Je bosse pour vous, alors
patience!".
Je sais que l'on doit utiliser "DoEvents", mais je n'arrive pas à savoir
ou

dans le code, du fait que MsgBox met en attente.

D'avance merci
Patrick

Merci, mais cela ne marche pas car sur Mac, le MsgBox et le userForm sont

tous deux Modal d'après ce que j'ai pu comprendre . J'ai résolu mon problème
en passant mon message sur ma feuille de calcul

Patrick

Jacky

30/12/2003 à 16:13

Bonjour Patrick

Une solution simple peut-être:

Sur ta feuille
1-Crée une zone de texte(barre de menu "dessin") que tu nommes "Message" par
exemple(clique sur le bord de la zone de texte et écrit le nom dans la zone
de nom à gauche de la barre des formules) valide par "entrer"

2-Tu mets ton texte, "Je bosse pour vous, alors patience!". Tu peux même la
colorier

3- Au début de ton code tu tape:
ActiveSheet.Shapes("Message").Visible = true

4-A la fin de ton code tu tape:
ActiveSheet.Shapes("Message").Visible = False

Cette boite(zone de texte) s'affichera au début de ta macro et disparaîtra à
la fin de ta mise en forme.

Salutations
JJ

"Patrick Catarsi" a écrit dans le message news:
BC16E55B.418B%

Bjr à tous et tous mes voeux

Je voudrais pendant que s'effectue une mise en forme qui dure une
trentaine

de secondes, avoir un message du genre "Je bosse pour vous, alors
patience!".
Je sais que l'on doit utiliser "DoEvents", mais je n'arrive pas à savoir
ou

dans le code, du fait que MsgBox met en attente.

D'avance merci
Patrick

DoEvents

4 réponses

Veuillez sélectionner un problème