[VBA -E] Sablier pendant que le programme VBA tourne

Version imprimable

31/03/2007, 14h53
antoine.dandois

[VBA -E] Sablier pendant que le programme VBA tourne

Bonjour,

J'ai un programe VBA qui doit traité un nombre grand de donnée. $

J'aimerais par soucis de clareté faire apparaître un (grand) sablier durant tous le temps qu'il tourne (ou un message disant que le programme est en train de tourner "Datas are in process"-> comment faire disparaître ce message informatif quand le programme a fini de tourner ??).

Quelqu'un connaitrait-il les instructions pour ce problème.

Merci d'avance,

Antoine
31/03/2007, 15h03
ouskel'n'or
On manque d'infos. Le contexte : Utilises-tu un userform ? Ton message, comment l'affiches-tu ? Un cadre ? Un userform ?
Comment se produit la fin de la procédure "in progress" ? C'est là que tu dois faire disparaître ton message
Code:

1 2 3 4 LeCadre.visible = false 'ou LeMessage.Unload 'ou ??????
Bref, on manque vraiment d'infos :(
31/03/2007, 15h21
antoine.dandois

oups
ok, c'est vrai que ca manque d'info.

Pour le message, je comptait en faire apparître un du type

Code:

MsgBox "Datas in process"

Mais, c'est un boite de dialogue tandis que j'aimerais juste faire apparaître une boite d'info....

Mon programm s'arrête quand il a fini toute les instructions de la macro
Code:

1 2 3 Public Sub ProcessData() 'appel d'autre macros End Sub
Donc, je pourrais mettre qql chose de ce genre juste avant la fin de ma macro "Process Data"

Code:

MonMessage.visible = False

Merci d'avance

Antoine
31/03/2007, 15h30
ouskel'n'or

Citation:

Envoyé par antoine.dandois

Donc, je pourrais mettre qql chose de ce genre juste avant la fin de ma macro "Process Data"

Code:

MonMessage.visible = False

En effet, c'est à ça que je pensais, quant à ton message, le msgbox n'est pas adapté, donc il te reste le choix entre un label sur la feuille de calculs, que tu fais apparaître avant lancement de ta procédure (au début de...) et un userform avec un label, que tu décharges avant le End sub de ta procédure.
Avec l'userform, peut-être même si tu reste sur la feuille, tu peux même ajouter un sablier dans le curseur de ta souris ;)
31/03/2007, 15h39
antoine.dandois

ok

un MsgBox n'est effectivement pas adapté, j'aimerais donc utiliser un label sur la feuille de calcul d'ou ma question, comment fair eapparâitre un label sur la feuille de calcul ??
Est ce aussi facile que de faire apparaître un MsgBox ??

Merci d'avance,

Antoine

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub CréerLeLabel()
    ActiveSheet.Labels.Add(706.5, 87.75, 99.75, 38.25).Select
    With Selection
        .Caption = "Le Process... il est en cours !"
    End With
End Sub
 
Sub supprimerLeLabel()
    With ActiveSheet.Shapes(1)
        .Delete
    End With
End Sub

Et tu peux même changer le commentaire :mouarf: