message pour patienter pendant le traitement d'une procédure

[casefayere]

Bonjour,
ci-joint un code pour faire apparaitre un message pendant le traitement d'une procédure :

Code :

1
2
3
private sub workbook_open() 'à l'ouverture du classeur
load patience 'nom de l'userform qui permet de patienter
end sub

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub Calendrier() 'programme principal qui contient le gros traitement
Application.Cursor = xlWait 'affiche le sablier
patience.Show vbModeless 'affiche l'userform nommé "patience"
patience.Repaint 'rafraichit le contenu à placer
'commence le traitement
ecriture de la procédure
'quand le traitement est terminé
unload patience 'décharge l'userform de la mémoire 
Application.Cursor = xlDefault 'remet le curseur par défault
 
End Sub

J'espère que ça servira

à bientôt

[ouskel'n'or]

En mettant l'unload dans workbook_beforeclose ton userform "encombre" la mémoire inutilement jusqu'à la fermeture du classeur. Pourquoi ne mets-tu pas Unload usf en fin de procédure Calendrier ?
Pour modifier ton message, tu as le bouton "Editer"

[casefayere]

Merci,
Je m'en occupe tout de suite

a+