Message d'avertissement

[koukou40]

Bonjour,

Lorsque j'ouvre mon fichier dans lequel se trouve quarante onglets pour autant de TCD (avec mise à jour à l'ouverture), l'actualisation de ces derniers est assez longue.
Serait-il possible d'afficher un message avertissant l'utilisateur de patienter avant la fin de la mise à jour ?

Merci,

 

[Catrice]

Re : Message d'avertissement

Bonjour,

ci-joint un codes à tester dans ton contexte.
Le message s'affiche à l'ouverture du fichier et disparait lorsque Excel a terminé les calculs.

 

[koukou40]

Re : Message d'avertissement

Je te remercie.
Je teste...
A+

 

[Temjeh]

Re : Message d'avertissement

Bonjour

A ajouté au userform de Catrice si tu as aussi des macros

Private Sub UserForm_Initialize()
UserForm1.Show 0
DoEvents
Application.ScreenUpdating = False

...Ton code ici

Application.ScreenUpdating = True
Unload UserForm1
End Sub

A+

TemJeh

 

[koukou40]

Re : Message d'avertissement

Ok, Temjeh.
je complète et je reviens vers vous un peu plus tard !

A+

 

[koukou40]

Re : Message d'avertissement

Temjeh,

Tu me dis "...ton code ici", quel code ?

A+

 

[Temjeh]

Re : Message d'avertissement

Je me suis ptêtre trompé

Ce code est pour du VBA donc si tu as des macros

Il montre le userform
exécute les macro
ferme le userform

Ptêtre celui de Catrice est plus juste avec son Unload UserForm1 dans Workbook_SheetCalculate.

Désolé

A+

Temjeh