Discussion :

[Jonathan Raucy]

Bonjour,
Je voudrais mettre une message box pendant le déroulemet de l'une de mes macro qui est assez longue. J'ai trouver la message box dans le FORUM mais je n'arrive pas à faire dérouler le message pendant le déroulement de la macro. Je pense que ce problème est sans doute du à mon manque de connaissance du VB....
Alors je poste ce message pour savoir ci quelqu'un à eu ce qouci et si il à réussi à trouver une solution.
Cordialement,
Jonathan

[Invité]

Bonjour

Une msgBox va arrêter le déroulement de ta macro.

Il faut que tu utilises une Userform.

Starec

[Jonathan Raucy]

Oui je suis tout a fait d'accord Starec et excuse moi mais je me suis tromper de vocabulaire en ecrivant message box je pensais à un USF.
C'est celui de Ouskel'nord en faite. Si tu veut le voir...

[cavo789]

Tu peux également utiliser la propriété StatusBar pour un écrire des textes au fûr et à mesure de l'avancement de ta macro.

[Jonathan Raucy]

C'est surement une bonne idée mais je ne connais pas du tout pourraos tu m'aider??????????

[tomy7]

dans l aide VBA status bar:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Returns or sets the text in the status bar. Read/write String.
 
Remarks
This property returns False if Microsoft Excel has control of the status bar. To restore the default status bar text, set the property to False; this works even if the status bar is hidden.
 
Example
This example sets the status bar text to "Please be patient..." before it opens the workbook Large.xls, and then it restores the default text.
 
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar

[cavo789]

je ne connais pas du tout pourraos tu m'aider??????????

Salut Jonathan,

Désolé de n'avoir davantage explicité ma première réponse mais je préfère aider le maximum de personnes et donc ma préférence va aux réponses brèves qu'en long et en large.

En lançant l'aide d'Office voire Google, avec les mots cléfs VBA + StatusBar + Excel, il était évident pour moi que tu trouverais.

J'ai donc préféré te mettre sur la piste.

Bye

[Jonathan Raucy]

C'est pas mal le statusBar mais c'est trop juste visuellement je voudrais faire apparaitre un USF qui commencerais au début de ma macro et qui ce terminerais à la fin.
Si quelqu'un à une idée c'est le moment car lorsque je lance mon USF ma macro ce stope et elle plante tout excel.
Merci d'avance,
Cordialement
Jonathan

[AlainTech]

Mets l'appel à ta macro dans l'événement d'ouverture du UserForm.

[neo2k2]

Je te propose également une autre réponse...

Si dans ta macro tu as une boucle, par exemple, tu peux toujour créer et "loader" une usf - comme cela a été dit plus haut - dans laquelle tu ajoutes une progressbar incrémentée tout au long des étapes de ta macro.

Tu l'initialises au début:
ProgressBar1.Value = 0

Et tu testes à la fin:
If ProgressBar1.Value = 100 then
Unload UserForm1
End If


Un programmant, peu proprement je l'avoue, tu peux également parsemer ta macro de (UserForm1.)ProgressBar1.Value = ProgressBar1.Value + 10 (ou +1 ou +5...)

Et si ca plante, vérifie si tu es en modal ou non, parfois le mélange des 2 donne de bien étranges résultats.
p.ex.:
UserForm1.Show 0 => non modal
UserForm1.Show => modal
UserForm1.Show 1 => modal
UserForm1.Show modal => modal
...