Faire apparaître un message d'attente

Bonjour coco74,

Avec un UserForm,

au début de ta macro :

UserForm1.Show vbModeless

à la fin :

Unload UserForm1

Bonjour à tous,

Je souhaiterais faire apparaître un message 'execution en cours" sans bouton
OK pendant l'execution d'une macro assez longue. Le message doit apparaître
au début de la macro et disparaître automatiquement à la fin de la macro. Je
souhaite ne pas utiliser l'affichage dans la barre d'état qui donne déjà des
des infos sur l'état d'avancement de la macro.
Comment faire ?

Cordialement

--
Cordialement,

Jacques.

2 possibilités :

Utiliser une barre de progression (ProgressBar) dans
une UF non modale.

utiliser une UF non modale. (moins chic mais moins lourd)

P.


"coco74" <coco74@discussions.microsoft.com> a écrit dans le message de news: C1165820-DCE3-4990-8CD4-BA66016A9791@microsoft.com...

Bonjour à tous,

Je souhaiterais faire apparaître un message 'execution en cours" sans bouton
OK pendant l'execution d'une macro assez longue. Le message doit apparaître
au début de la macro et disparaître automatiquement à la fin de la macro. Je
souhaite ne pas utiliser l'affichage dans la barre d'état qui donne déjà des
des infos sur l'état d'avancement de la macro.
Comment faire ?

Cordialement
--
coco

Fichier exemple avec userform : http://cjoint.com/?lCri1wcS4G


"coco74" <coco74@discussions.microsoft.com> a écrit dans le message de news:
C1165820-DCE3-4990-8CD4-BA66016A9791@microsoft.com...
Bonjour à tous,

Je souhaiterais faire apparaître un message 'execution en cours" sans bouton
OK pendant l'execution d'une macro assez longue. Le message doit apparaître
au début de la macro et disparaître automatiquement à la fin de la macro. Je
souhaite ne pas utiliser l'affichage dans la barre d'état qui donne déjà des
des infos sur l'état d'avancement de la macro.
Comment faire ?

Cordialement
--
coco

Bonjour,

http://cjoint.com/?lCrs2ZKYv1

Sub Attente()
ActiveSheet.Shapes("monshape").Visible = True
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = "Attendez
svp..."
'--- simulation attente
For i = 1 To 100000000
Next i
'---
ActiveSheet.Shapes("monshape").Visible = False
End Sub

JB

2 possibilités :

Utiliser une barre de progression (ProgressBar) dans
une UF non modale.

utiliser une UF non modale. (moins chic mais moins lourd)

P.


"coco74" <coco74@discussions.microsoft.com> a écrit dans le message de news: C1165820-DCE3-4990-8CD4-BA66016A9791@microsoft.com...

Bonjour à tous,

Je souhaiterais faire apparaître un message 'execution en cours" sans bouton
OK pendant l'execution d'une macro assez longue. Le message doit appara ître
au début de la macro et disparaître automatiquement à la fin de l a macro. Je
souhaite ne pas utiliser l'affichage dans la barre d'état qui donne d éjà des
des infos sur l'état d'avancement de la macro.
Comment faire ?

Cordialement
--
coco