Discussion :

[antoine.dandois]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
LeCadre.visible = false
'ou
LeMessage.Unload
'ou ??????

Bref, on manque vraiment d'infos

[antoine.dandois]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage.visible = False

Merci d'avance

Antoine

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antoine.dandois]

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

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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