Bonjour,
ci-joint un code pour faire apparaitre un message pendant le traitement d'une procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 private sub workbook_open() 'à l'ouverture du classeur load patience 'nom de l'userform qui permet de patienter end sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager