userform

Question

Bonsoir,



j'ai une macro qui met un certain temps &#224; s'executer. Par consequent,
au lancement de ma macro, je voulais lancer un petit userform ou c
juste ecrit "veuillez patienter".

Seulement, si je le fais avec un userform, je dois le fermer pour qu'il
continue l'execution de la macro (je le lance avec userform1.show, et
voulais l'enlever une foisle traitement fini avec userform1.hide)...



auriez vous une petite id&#233;e..???



merci

cs_lacomm · Answer

une progressbar, je trouve &#231;a mieux, ca donne une id&#233;e du temps. y'a plein de source sur ce site, mais ca ne marche qu'en vb je crois.
sinon, tu peux faire la m&#234;me chose avec un label qui appara&#238;t pendant le temps d'ex&#233;cution.

neophenix83 · Answer

un label ?!?!

pkoi pas....j'ai rien contre...mais je ne connais pas...:'(

cs_lacomm · Answer

dans ta boite &#224; outils, tu cliques sur le deuxi&#232;me bouton, avec un "A", c'est la label, cad, une &#233;tiquette de texte et come tu as fait userform.show et hide, dans les propri&#233;t&#233;s tu mets VISIBLE=false quand ton appli est finie et = true quand elle est en cours.

mrdep1978 · Answer

Salut,



Dans un module, tu mets ta macro initiale, qui fait :



'Macro &#224; appeler

Public Sub MaMacro()

    UserForm1.Show

End Sub



'Traitement &#224; effectuer

Public Sub MonTraitement()

Dim i As Long

For i = 1 To 31000

Feuil1.Cells(i, 1).Value = "a"

Next i

End Sub



Dans ta userform, tu mets :

Private Sub UserForm_Activate()

Caption = "Veuillez patienter..."

Call MonTraitement

Unload Me

End Sub

mrdep1978 · Answer

UserForm1.Show vbModal

au lieu de

UserForm1.Show

Userform

5 réponses

Discussions similaires