Message d'attente

[Aurore]

Re bonjour...

Je voudrais savoir s'il est possible de créer une fenêtre qui aurait un message du style "veuillez patienter chargement en cours"...pendant l'execution d'un programme...
J'ai essaye en integrant un formulaire mais tant qu'il est présent, le programme ne passe pas a l'execution suivante...

Merci d'avance

Aurore

 

[The Munchkin]

Bonjour Aurore

oui c'est possible

donc ce que j'avais fais c'est créer un userform dans lequel j'avais écris mon message et puis dans mon code avant de commencer le chargement des données je fais afficher le userform de tel facon que le chargement des données continue

userform.Show
With userform
.Show
.Repaint

et puis à la fin du chargement des donées

userform.Hide


voilà
The Munchkin

 

[JB]

Salut Aurore,

tu peux également te servir de la "StatusBar" pour afficher un message...

Dans ta macro tu mets au début:

Application.ScreenUpdating = False
Application.StatusBar = "Traitement en cours..."

et à la fin tu mets:

Application.ScreenUpdating = True
Application.StatusBar = False

A+

JB

 

[Yeahou]

salut

il faut préciser dans les propriétés de ton formulaire qu'il n'est pas modal, mais cela ne fonctionne qu'avec les versions supérieures à excel 97
showmodal=false

A+

 

[The Munchkin]

ah oui Yeahou t'as raison j'avais oublié ca

le userform ne doit pas etre modal

donc dans la proprite ShowModal tu met false

Merci Yeahou

 

[Aurore]

Je vous remercie pour ces réponses....

Je pense que je vais choisir l'option avec la statusbar...qui marche parfaitement

Aurore

 

[The Munchkin]

oulaaaaaaaaaaaaaa c'est maintenant que je me rend compte
désolé, j'ai oublié "end with"


userform.Show
With userform
.Show
.Repaint
...........
...........
...........

end with
userform.Hide

encore une fois désolé
The Munchkin