Message pendant l'éxécution d'une Macro

Bonsoir à toutes & à tous

Vois si cette solution convient.......


Ong alain
Ps: Je ne suis pas l'auteur du code s'il se reconnait merci de nous le faire savoir. [file name=Synthese2.zip size=19517]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Synthese2.zip[/file]

bonsoir Jmps
une fonction ou tu extrais ce dont tu as besoin

Function FastRun(Setting)
'merçi à Peter Fossey, mpep
'début du code FastRun (False)
'fin du code FastRun (true)
'texte changer updating etc
Application.StatusBar = 'Updating Excel settings, please wait...'
Application.EnableCancelKey = xlDisabled
Application.ScreenUpdating = Setting
Application.DisplayAlerts = Setting
Application.Interactive = Setting
If Setting = False Then Application.Calculation = xlCalculationManual
If Setting = False Then Application.Cursor = xlWait
If Setting = True Then Application.Calculation = xlCalculationAutomatic
If Setting = True Then Application.Cursor = xlDefault
Application.StatusBar = False

End Function

à+ 🙂

Bonjour Bebere , jmps ,ong alain ,

J'ai adapter le code que ong alain a mis en ligne et tout fonctionne parfaitement .

Encore Merci pour votre aide .

@ + Don Foster