Código VBA para ventana emergente

Resuelto
chouchen_lolo Mensajes publicados 38 Fecha de registro   Estado Miembro -  
chouchen_lolo Mensajes publicados 38 Fecha de registro   Estado Miembro -
Hola,

Me gustaría incluir la apertura de una ventana estilo pop-up con el mensaje "please wait..." en el código de una macro bastante pesada en cálculos en Excel.

En resumen, me gustaría que al iniciar la macro se abra una ventana pidiéndome que espere, que la función base de la macro se ejecute normalmente y que la ventana desaparezca automáticamente una vez finalice el cálculo.

Lo único que he encontrado por el momento es esto:
...
warning = MsgBox("This will take time", vbExclamation + vbOKCancel, "WARNING")
If warning = vbCancel Then End
...


Esta ordene abre una ventana con el mensaje "This will take time" con el botón OK y el botón Cancel.
Si elijo Cancel, la macro se detiene.
Si elijo OK, la ventana se cierra y la macro se ejecuta normalmente, es larga y un usuario no experimentado podría pensar que la PC se ha congelado.

¿Puedes ayudarme?

Gracias de antemano

10 respuestas

le père
 
Hola

No puedes usar Msgbox porque Msgbox es una ventana modal, es decir, tu aplicación no hace nada más hasta que la cierras.

Crea otra ventana con tu mensaje. Al inicio de tu macro haces Autrefenetre.show y al final Autrefenetre.hide
3