Message pendant utilisation d'une macro

Version imprimable

14/03/2008, 09h21
Jonathan Raucy

Message pendant utilisation d'une macro

Bonjour:salut:,
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...:piou:.
Alors je poste ce message pour savoir ci quelqu'un à eu ce qouci et si il à réussi à trouver une solution. :ave:
Cordialement,
Jonathan
14/03/2008, 09h23
Invité

Bonjour

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

Il faut que tu utilises une Userform.

Starec
14/03/2008, 09h36
Jonathan Raucy

Re:

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.:oops:
C'est celui de Ouskel'nord en faite. Si tu veut le voir...
14/03/2008, 15h19
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.
17/03/2008, 10h33
Jonathan Raucy

Re:

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

dans l aide VBA status bar:

Code:

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

17/03/2008, 12h05
cavo789

Citation:

Envoyé par Jonathan Raucy

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

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
18/03/2008, 15h58
Jonathan Raucy

Re:

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.:evilred:
Merci d'avance,
Cordialement
Jonathan
18/03/2008, 16h03
AlainTech

Mets l'appel à ta macro dans l'événement d'ouverture du UserForm.
18/03/2008, 16h48
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
...